==很少人问的有关问题，delphi怎么计算文本的长度和高度==

==很少人问的问题，delphi如何计算文本的长度和高度==
任意给定一串文本，知道文本在Edit中的字体大小，字体名称，如何知道文本的宽度和高度(像素单位)，不是获取字节数
如何写？
------解决方案--------------------

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;

------解决方案--------------------
用api GetTextExtentExPoint，用法去google或msdn
------解决方案--------------------
二楼应该是可以的
------解决方案--------------------
一楼正解。。
------解决方案--------------------
Canvas也有获取文字高宽的方法.实际上是对一楼方法的封装.