procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0); //开始拖动窗体
end;
http://blog.csdn.net/diligentcatrich/article/details/7008516
时间: 2024-10-21 09:21:05