==很少人问的问题,delphi如何计算文本的长度和高度==

ChinaOneCup 2013-07-17 03:41:14
任意给定一串文本,知道文本在Edit中的字体大小,字体名称,如何知道文本的宽度和高度(像素单位),不是获取字节数
如何写?
...全文
236 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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;
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4925

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2013-07-17 03:41
社区公告
暂无公告