代码之家 › 专栏 › 技术社区 › Robert Wigley

相对于向导窗体位置定位自定义窗体

pascalscript inno-setup

1

Robert Wigley · 技术社区 · 6 年前

我创建了一个自定义表单来显示选项页,我试图将其放置在 WizardForm 单击选项按钮时。我已经尝试了以下代码,但它没有按描述定位它。

[Code]
var
  OptionsWindowForm: TForm;

{ Show the Options window }
procedure ShowOptionsWindow;
begin
  OptionsWindowForm := TForm.Create(nil);
  with OptionsWindowForm do
    begin
      Parent := WizardForm;
      BorderStyle := bsDialog;
      Position := poMainFormCenter;
      ClientWidth := ScaleX(400);
      ClientHeight := ScaleY(140);
      Caption := '{#AppName} Options';
      ShowModal;
    end;
end;

我也试过了 poOwnerFormCenter 对于 Position 属性和设置 Left 和 Top 属性,似乎被忽略。

有没有办法按说明定位?

1 回复 | 直到 6 年前

1

Martin Prikryl 6 年前

它确实不像预期的那样工作。

虽然这似乎有效:

optionswindowform:=tform.create(wizardform);使wizardform成为所有者
带选项的WindowForm Do
开始
位置:=poownerformcenter;以所有者为中心
{…}
展示模式;
结束;
< /代码>

推荐文章

ashish · 如何在快速报告中隐藏空白文本对象的边框

7 年前

Joshua · Inno安装程序基于自定义复选框值设置可卸载指令

7 年前

Robert Wigley · Inno Setup选中另一个任务时取消选中该任务

8 年前

Robert Wigley · Inno安装程序从.NET Framework 4.5(或更高版本)安装程序获取进度以更新进度条位置

8 年前