如何在 Inno Setup 中删除右侧和下方的白色边框而不是 BorderStyle := bsNone？

Question

我一直在尝试制作无边框可移动的 Inno Setup，并想出了如何使其可移动和无边框，但右侧和下方仍然有边框。

首先我的代码是 BorderStyle := bsDialog.

我更改为 BorderStyle := bsNone 以使设置无边框。

Answer 1

在更改 BorderStyle 之前记住 window 的客户端大小，然后再恢复客户端大小：

procedure InitializeWizard();
var
  ClientWidth: Integer;
  ClientHeight: Integer;
begin
  ClientWidth := WizardForm.ClientWidth;
  ClientHeight := WizardForm.ClientHeight;

  WizardForm.BorderStyle := bsNone;

  WizardForm.ClientWidth := ClientWidth;
  WizardForm.ClientHeight := ClientHeight;
end;