H housir Unregistered / Unconfirmed GUEST, unregistred user! 2008-01-03 #1 自己寫一個類﹐使其能在重陸建后也能拖動什么的﹐(類似Delphi編緝環境下在其新建的窗口中拖動控件)﹐該類我是從Tpanel繼承下來的﹐﹐比較急﹐﹐還請各位DFW賜教。。
X xuegaoyili Unregistered / Unconfirmed GUEST, unregistred user! 2008-01-03 #2 在鼠标移动事件中，加一个标记变量，控制下面代码是否执行。就能移动了<br>procedure TForm.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y:<br> Integer);<br>begin<br> ReleaseCapture;<br> perform(WM_SYSCOMMAND, $F012, 0);<br>end;
在鼠标移动事件中，加一个标记变量，控制下面代码是否执行。就能移动了<br>procedure TForm.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y:<br> Integer);<br>begin<br> ReleaseCapture;<br> perform(WM_SYSCOMMAND, $F012, 0);<br>end;
