Var
CRect:TRect;
Width,Height:integer;
Begin
CRect: = Rect( 10 , 10 , 50 , 60 );
Width: = WidthOf(CRect); // 取宽度
Height: = HeighthOf(CRect); // 取高度
End;
CRect:TRect;
Width,Height:integer;
Begin
CRect: = Rect( 10 , 10 , 50 , 60 );
Width: = WidthOf(CRect); // 取宽度
Height: = HeighthOf(CRect); // 取高度
End;