如何从右侧和下方部分删除白色边框而不是在Inno Setup中使用BorderStyle：= bsNone？

Question

我一直在尝试制作一个没有边框的可移动的Inno设置，并想出如何使它可移动和无边框但是在右边和下边仍然有边框。

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

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

Answer 1

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

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

  WizardForm.BorderStyle := bsNone;

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