发信人: delphilxh(先锋)
整理人: soaringbird(2001-10-30 08:06:56), 站内信件
|
要获取一个组件的边界矩形,可以向其发送消息EM_GETRECT,而设置一个组件的边界矩形,可以发送消息EM_SETRECT;
Function SetMemoRect:boolean;
var
Rect:TRect;
Begin
SendMessage(Memo1.Handle,EM_GETRECT,0,LongInt(@Rect));
Rect.Left:=20;
Rect.top:=20;
Rect.Right:=Rect.Right-19;
Rect.Bottom:=Rect.Bottom-19;
SendMessage(Memo1.Handle,EM_SETRECT,0,LongInt(@Rect));
Memo1.Refresh;
End;
---- ██████
█┏━━┓█ Delphi先锋网欢迎您!!!!
█┃之先┃█ 北京网易Delphi论坛
█┃印锋┃█
█┗━━┛█
██████
|
|