本文介绍了两种移动窗口的方法。一种是通过控件响应鼠标点击，适合局部区域移动；另一种是处理窗口WM_NCHITTEST消息，实现整体窗口的拖动，当鼠标在指定区域内时，行为如标题栏。
1、通过控件，适合局部区域移动
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Windows.ReleaseCapture;
Perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;
2、通过处理窗口消息，适合整体窗口移动
procedure TTestForm.WMNCHitTest(var Msg: TWMNCHitTest);
function CanDoDrag(const APos: TPoint): Boolean;
begin
Result := (APos.Y < 52);
end;
var
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Windows.ReleaseCapture;
Perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;
2、通过处理窗口消息，适合整体窗口移动
procedure TTestForm.WMNCHitTest(var Msg: TWMNCHitTest);
function CanDoDrag(const APos: TPoint): Boolean;
begin
Result := (APos.Y < 52);
end;
var
最低0.47元/天 解锁文章
扫一扫
1248
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
