当前位置：文江博客话题详情

Delphi 7 中文本/标题的宽度（以像素为单位）

发布于 2024-08-07 12:13:28 字数 81 浏览 7 评论 0原文

这是我的问题，我想知道文本的实际长度（以像素为单位）（请注意，某些字体中的各种字母具有不同的长度）。我将使用它来更好地调整 DBGrid 中的列宽。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

洋洋洒洒 2024-08-14 12:13:28

您可以使用 Canvas.TextWidth 和 Canvas.TextHeight 函数。

选项1，使用控件的画布

WidthInPixels := Label1.Canvas.TextWidth('My Text');

选项2，创建临时画布（使用Tbitmap）

Function GetWidthText(const Text:String; Font:TFont) : Integer;
var 
  LBmp: TBitmap; 
begin
  LBmp := TBitmap.Create;
  try
   LBmp.Canvas.Font := Font;
   Result := LBmp.Canvas.TextWidth(Text); 
  finally
   LBmp.Free;
  end;
end;

You can use the Canvas.TextWidth and Canvas.TextHeight functions.

Option 1, using the canvas of the control

WidthInPixels := Label1.Canvas.TextWidth('My Text');

Option 2, creating a temporary canvas (using a Tbitmap)

Function GetWidthText(const Text:String; Font:TFont) : Integer;
var 
  LBmp: TBitmap; 
begin
  LBmp := TBitmap.Create;
  try
   LBmp.Canvas.Font := Font;
   Result := LBmp.Canvas.TextWidth(Text); 
  finally
   LBmp.Free;
  end;
end;

回复收藏 0 原文

痴情 2024-08-14 12:13:28

如果您的 Delphi 组件具有“Canvas”属性，那么您可以使用 Component.Canvas.TextWidth。例如：要获取 DBGrid 文本的宽度，您可以使用：

DBGrid1.Canvas.TextWidth('Stack');

在这里您可以找到有关此问题的完整参考：
Delphi 字符串的长度（以像素为单位）

if you have a Delphi component has a "Canvas" property, then you can use Component.Canvas.TextWidth. For example: to get the width of the text of DBGrid you can use: