WinAPI: DrawText - 将文本绘制到指定的矩形中

最新推荐文章于 2020-08-30 12:01:04 发布

jsrgren

最新推荐文章于 2020-08-30 12:01:04 发布

阅读量240

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/jsrgren/article/details/84116775

delphi 专栏收录该内容

16 篇文章

订阅专栏

本文介绍了Windows API中的DrawText函数的使用方法，该函数用于在指定的矩形区域内绘制文本，并支持多种对齐方式和文本布局选项。文章通过示例展示了如何在窗体上响应鼠标点击事件，并使用DrawText函数绘制文本。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//声明:
DrawText(
hDC: HDC; {设备句柄}
lpString: PChar;   {文本}
nCount: Integer;   {要绘制的字符个数; -1 表示全部}
var lpRect: TRect; {矩形结构}
uFormat: UINT {选项}
): Integer; {返回文本高度}

//uFormat 参数的可选值:
DT_TOP    = 0;    {顶对齐, 须 or DT_SINGLELINE}
DT_LEFT = 0;    {左对齐}
DT_CENTER = 1;    {水平居中}
DT_RIGHT    = 2;    {右对齐}
DT_VCENTER    = 4;    {垂直居中, 须 or DT_SINGLELINE}
DT_BOTTOM = 8;    {底对齐, 须 or DT_SINGLELINE}
DT_WORDBREAK    = $10;    {给超出边界的单词换行; 如果 SetTextAlign 函数设置了 TA_UPDATECP, 这里的设置无效}
DT_SINGLELINE = $20;    {单行文本}
DT_EXPANDTABS = $40;    {扩展制表符, 默认制表跨 8 个字符}
DT_TABSTOP    = $80;    {TAB 后添加的字符数}
DT_NOCLIP = $100; {使文本不限制在指定的矩形内}
DT_EXTERNALLEADING = $200; {返回的高度包括字体的外部行距}
DT_CALCRECT = $400; {自动检测容纳文本的矩形的高度和宽度, 并返回高度, 但文本不被绘制}
DT_NOPREFIX = $800; {不处理前缀字符(&); 默认时, & 后的字符会被添加下划线}
DT_INTERNAL = $1000;    {用系统字体来计算文本高度}
DT_HIDEPREFIX = $00100000; {隐藏下划线}
DT_PREFIXONLY = $00200000; {将 & 解释为前缀}

//举例:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
MyRect: TRect;
const
str = '';
begin
MyRect.Left := X;
MyRect.Top := Y;
MyRect.Right := X + 100;
MyRect.Bottom := Y + 100;

DrawText(Canvas.Handle, str, -1, MyRect, DT_LEFT);
end;