本文整理自网络,侵删。
Var
CRect:TRect;
Width,Height:integer;
Begin
CRect:=Rect(10,10,50,60);
Width:=WidthOf(CRect);//取宽度
Height:=HeighthOf(CRect);//取高度
End;
相关阅读 >>
Delphi生成的webservice appdebug的程序,编译时出错
Delphi xe 7 mediaplayer 在安卓里放不出声音
Delphi 不管什么datetime日期格式时间格式转换都不会错了
Delphi xe8安卓下汉字转gb2312 urlencode代码
更多相关阅读请进入《Delphi》频道 >>