Inno setup window drag learning

When installing packages , The installation interface can often be dragged , because Inno5.5 after ,WizardForm No longer supported OnMouseDown, So first we need to create a Label Overlay window , then label Set transparent , from Label To overload OnMouseDown.

The method is as follows ：

Declare a system call api：

function ReleaseCapture() : longint; external '[email protected] stdcall';

inno set The script for is as follows ：

Statement ：

VAR

label_wizardform_title : TLabel;

// The entire area can be dragged

label_wizardform_title := TLabel.Create(WizardForm);
  with label_wizardform_title do
  begin
    Parent := WizardForm;
    AutoSize := False;
    Left := 0;
    Top := 0;
    ClientWidth := WizardForm.ClientWidth;
    ClientHeight := WizardForm.ClientHeight;
    Caption := '';
    Transparent := TRUE;
    OnMouseDown := @WizardMouseDown;
  end;

// If it is only the last test cation You can drag that ：

label_wizardform_title := TLabel.Create(WizardForm);
  WITH label_wizardform_title DO
  BEGIN
    Parent := WizardForm;
    AutoSize := FALSE;
    Left := 10;
    Top := 5;
    Width := WIZARDFORM_WIDTH_NORMAL;
    Height := 20;
    Font.Name := 'Microsoft YaHei';
    Font.Size := 9;
    Font.Color := clWhite;
    Caption := '{#MyAppName} V{#MyAppVersion} install ';
    Transparent := TRUE;
    OnMouseDown := @WizardMouseDown;
  END;

In statement ： SendMessage(WizardForm.Handle, $112, $F012, 0); in $112 yes WM_SYSCOMMAND Of 16 Base number ,$F012 yes SC_MOVE | HTCAPTION