Delphi 無邊框窗體移動

在控件的MouseDown事件中加入 if (ssleft in Shift) then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0); end; 如form1： procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (ssleft in Shift) then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0); end; end; end.