本文整理自网络,侵删。
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);begininherited;//Msg.Result:=HTCaption;end;
5.
privateprocedure AppMessage(var Msg:TMsg;var Handled:Boolean);
procedure TForm1.FormCreate(Sender: TObject);beginApplication.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) thenbeginSendMessage(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);beginReleaseCapture;SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);end;
相关阅读 >>
Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接
更多相关阅读请进入《Delphi》频道 >>