N NeutronDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-26 #3 WM_SYSCOMMAND消息,可惜Delphi中没有定义SC_DRAG<br>也就是说<br>procedure WMSyscommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND;<br>const<br> SC_DRAG=$F012<br>begin<br> inherited;<br> if Msg.CmdType=SC_DRAG then //SC_DRAG=$F012<br> begin<br> //移动<br> end;
WM_SYSCOMMAND消息,可惜Delphi中没有定义SC_DRAG<br>也就是说<br>procedure WMSyscommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND;<br>const<br> SC_DRAG=$F012<br>begin<br> inherited;<br> if Msg.CmdType=SC_DRAG then //SC_DRAG=$F012<br> begin<br> //移动<br> end;
风 ~风之彼端~ Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-26 #6 Form.Height - Form.ClientHeight即可
S settingsun Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-26 #7 我现在想要实现的是类似与那种磁性窗体,靠到屏幕上端或下端就可以吸附上,但是通过捕捉SC_DRAG,得鼠标放开后才能吸附上,能不能同步执行,即鼠标拖动标题栏的时候达到吸附范围内就吸附,不用等鼠标松开才吸附,望各位告知.
我现在想要实现的是类似与那种磁性窗体,靠到屏幕上端或下端就可以吸附上,但是通过捕捉SC_DRAG,得鼠标放开后才能吸附上,能不能同步执行,即鼠标拖动标题栏的时候达到吸附范围内就吸附,不用等鼠标松开才吸附,望各位告知.
N NeutronDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-26 #8 WM_MOVE<br>WM_WINDOWPOSCHANGING<br>都行!
