Delphi TRect的宽和高

Var
CRect:TRect;
Width,Height:integer;
Begin
CRect:
=Rect(10,10,50,60);
Width:
=WidthOf(CRect);//取宽度
Height:
=HeighthOf(CRect);//取高度
End;
posted @ 2011-04-06 09:46  许明吉博客  阅读(1160)  评论(0编辑  收藏  举报