本文整理自网络,侵删。
提示:可以添加一个布尔来控制可否拖动的状态,这里提供所有都能拖动的方法。
1 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
2 Shift: TShiftState; X, Y: Integer);
3 begin
4 ReleaseCapture;
5 SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
6 end;
相关阅读 >>
Delphi program name、process id、window handle、process handle 的转换函数
更多相关阅读请进入《Delphi》频道 >>