5,928
社区成员
发帖
与我相关
我的任务
分享==很少人问的问题，delphi如何计算文本的长度和高度==
任意给定一串文本，知道文本在Edit中的字体大小，字体名称，如何知道文本的宽度和高度(像素单位)，不是获取字节数
如何写？
如何写？
...全文
请发表友善的回复…
发表回复
ChinaOneCup 2013-07-19
- 打赏
- 举报
谢谢楼上几位，解决了
武稀松 2013-07-18
- 打赏
- 举报
Canvas也有获取文字高宽的方法.实际上是对一楼方法的封装.
LastAvengers 2013-07-17
- 打赏
- 举报
一楼正解。。
reverzeng 2013-07-17
- 打赏
- 举报
二楼应该是可以的
sololie 2013-07-17
- 打赏
- 举报
用api GetTextExtentExPoint，用法去google或msdn
pathletboy 2013-07-17
- 打赏
- 举报
var
h: HDC;
s: TSIZE;
begin
h := GetDC(edt1.Handle);
GetTextExtentPoint32(h, PChar(edt1.Text), Length(edt1.Text), s);
ShowMessage( IntToStr(s.cx) + ',' + IntToStr(s.cy));
end;