Delphi中拖动无边框窗口的5种方法
发布时间:2020-12-15 10:01:22 所属栏目:大数据 来源:网络整理
导读: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;? (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |