控件大小自由拖放，这样的功能如何实现？

baifeng 2001-11-17 06:45:39

就像是在设计期时，在FORM上放上一个MEMO控件，
可以用MOUSE自由拖放MEMO大小及其位置？？？

...全文

92 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

Miracle 2001-11-18

打赏
举报

自己派生一个TCustomButton的Button类，处理WM_NCHITTEST消息

taxi 2001-11-18

打赏
举报

TMyButton = class (TButton)
public
....
procedure WMNcHitTest(var Msg: TWMNcHitTest); message WM_NcHitTest;

......
......
procedure TMyButton.WMNcHitTest(var Msg: TWMNcHitTest);
var
Pt: TPoint;
begin
Pt := Point(Msg.XPos, Msg.YPos);
Pt := ScreenToClient(Pt);
if (Pt.x < 5 ) and (Pt.y < 5) then
Msg.Result := htTopLeft
else if (Pt.x > Width - 5) and (Pt.y < 5) and
Msg.Result ;= htTopRight
else if (Pt.x > Width - 5) and (Pt.y > Height - 5) then
Msg.Result := htBottomRight
else if (Pt.x <5) and (Pt.y > height - 5) then
Msg.Result := htBottomLeft
else if (Pt.x < 5) then
Msg.Result := htLeft
else if (Pt.y < 5) then
Msg.Result := htTop
else if (Pt.x > Width - 5) then
Msg.Result := htRight
else if (Pt.y > Height - 5) then
Msg.Result := htBottom
else
inherited;
end;