这是我的问题,我想知道文本的实际长度(以像素为单位)(请注意,某些字体中各种字母的长度不同)。我将使用它来更好地调整DBGrid中的列宽。
答案 0 :(得分:27)
您可以使用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;
答案 1 :(得分:5)
如果你有一个Delphi组件有一个“Canvas”属性,那么你可以使用Component.Canvas.TextWidth。例如:要获取DBGrid文本的宽度,您可以使用:
DBGrid1.Canvas.TextWidth('Stack');
在这里您可以找到有关此问题的完整参考: Length of Delphi string in pixels