Question

您好，我想问问您是怎么实现inno setup移动无标题窗口的？我看delphi的那些moveclient 函数貌似不支持

Answer 1

Procedure TForm1.FormMouseDown(Sender: TObject; 盯虚Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
  ReleaseCapture;
  perform(WM_SysCommand, $F012, 0);
End;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: 凯租燃TShiftState; 型樱X, Y: Integer);
begin
  ReleaseCapture;
  perform(WM_SysCommand, $F012, 0);
end;