P panjf Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-02 #1 现在form上被两个panel占据了所有空间,鼠标只能点到panel,怎么实现对窗体的拖动? 刚刚开始学,请说详细点,谢谢。
P panjf Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-02 #5 运行期,form的BorderStyle为bsNone
O onlyonekgx Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-02 #7 procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform(WM_SYSCOMMAND,$f012,0); end;
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform(WM_SYSCOMMAND,$f012,0); end;
P panjf Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-02 #8 to onlyonekgx:不行呀,没有用 to 太平洋:当然是运行期呀
O onlyonekgx Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-02 #9 不可能, 我试都行 在Panel 的 OnMouseDown 事件中写代码 ReleaseCapture; Perform(WM_SYSCOMMAND,$f012,0); 我试过无数次肯定行, 就是在窗体最大化的时候都能移动
不可能, 我试都行 在Panel 的 OnMouseDown 事件中写代码 ReleaseCapture; Perform(WM_SYSCOMMAND,$f012,0); 我试过无数次肯定行, 就是在窗体最大化的时候都能移动
P panjf Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-02 #12 可以了,我以前是改了属性DragMode,设成默认值就行了,能说说原理吗?看不太明白,谢谢
O onlyonekgx Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-02 #13 说起来也说不清楚, 你找一下帮助看一下 SetCapture ReleaseCapture; Perform(WM_SYSCOMMAND,$f012,0); 是发送消息,消息说起来话更长