procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
? Shift: TShiftState; X, Y: Integer);
begin
? ReleaseCapture;
? Perform(WM_SYSCOMMAND,$f012,0); //開始拖動窗體
end;

總結

以上是生活随笔為你收集整理的dephi中单击鼠标手动窗口的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。