精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>自定义memo的边界[原创]

主题:自定义memo的边界[原创]
发信人: 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论坛 
█┃印锋┃█ 
█┗━━┛█ 
██████ 

              

[关闭][返回]