提示:可以添加一个布尔来控制可否拖动的状态,这里提供所有都能拖动的方法。
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,); end;
2024-04-05 10:20:42
提示:可以添加一个布尔来控制可否拖动的状态,这里提供所有都能拖动的方法。
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,); end;
下一篇:VLC客户端和SDK的简单应用