Delphi中拖动无边框窗口的5种方法

发布时间：2020-12-15 10:01:21 所属栏目：大数据来源：网络整理

导读：1.MouseMove事件中加入： // ReleaseCapture; // Perform(WM_SYSCOMMAND,$F017,0);? 2.MouseDown事件中加入： // POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0); // POSTMESSAGE(Self.Handle,274,61458,0);? 3.MouseDown事件中加入： // ReleaseCapture; // Perf

1.MouseMove事件中加入：

// ReleaseCapture;
// Perform(WM_SYSCOMMAND,$F017,0);?

2.MouseDown事件中加入：

// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0);
// POSTMESSAGE(Self.Handle,274,61458,0);?

3.MouseDown事件中加入：

// ReleaseCapture;
// Perform(WM_SYSCOMMAND,$F012,0);?

4.截获WM_NCHITTEST消息

procedure WMNCHITTEST(var Msg:TWMNCHITTEST);message WM_NCHITTEST;?

procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
begin
inherited;
//Msg.Result:=HTCaption;
end;?

5.

private
procedure AppMessage(var Msg:TMsg;var Handled:Boolean);?

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;?

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
//(GetKeyState(vk_CONTROL) < 0)
if (Msg.message=WM_LButtonDown) and
(DefWindowProc(Handle,WM_NCHitTest,
0,GetMessagePos)=HTClient) and
(True) then
begin
SendMessage(Handle,WM_NCLButtonDown,
HTCaption,GetMessagePos);
//发送鼠标在标题栏内按下的消息
Handled:=true;
end;
end;

在MousDown事件中写
ReleaseCapture;//释放鼠标控制区域
SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);//发送移动标题栏消息
如，要在Panel上可以移动窗口
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X,Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,0);
end;?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!