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


本文整理自网络,侵删。

 
1.MouseMove事件中加入:

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

2.MouseDown事件中加入:

// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,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,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);
end;

相关阅读 >>

Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接

Delphi xe中将正则表达式tregex的使用

Delphi hexstrtobytes

Delphi有关asqlite控件支持中文路径的解决方案

Delphi 扫二维码并识别

Delphi获取本机mac地址方法

Delphi unicode转中文编码

Delphi stringgrid如何清空

Delphi文件操作所涉及的一些函数

Delphi 去除右边指定字符

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...