Inno Setup/Pascal 脚本 - 强制转换返回 nil

Question

我正在尝试为我正在使用Inno Setup Compiler 5.5.1制作的安装程序编写一些Pascal脚本。我目前正在尝试添加一个执行命令的自定义向导页面，从文本字段（TEdit 组件）中获取用户输入。我定义了 NextButtonClick 函数，它检查页面 ID 是否是我定义的自定义页面，并尝试从字段中检索用户输入。当我从页面的 Surface 属性的组件中获取它时，它会作为 TComponent 返回。要获得下一个，我需要将其转换为 TEdit，所以我尝试强制转换它，它似乎返回 nil。除了过去几天我一直在做的Inno脚本之外，我对Pascal没有太多经验，所以我可能做错了什么。但我会感谢你的帮助！

这是代码块，为我提供了一个参考问题（保留了调试行）：

function NextButtonClick(CurPageID: Integer): Boolean;
var
    ResultCode: Integer;
    CurrPage: TWizardPage;
    Server : TComponent;
    Server2: TEdit;
    SurfacePage : TNewNotebookPage;
    ServerStr : String;
begin
    if CurPageID = 100 then
    begin
      CurrPage := PageFromID(100);
      SurfacePage := CurrPage.Surface;
      Server := SurfacePage.Controls[0];
      Server2 := TEdit(Server);  // RETURNS NIL HERE
      if Server2 = nil then
        MsgBox('', mbInformation, MB_OK);
      ServerStr := Server2.Text;
      MsgBox(ServerStr, mbInformation, MB_OK);
      //ShellExec('', 'sqlcmd', '-S ' + ServerStr + ' -Q ":r setMemUsage.sql"', ExpandConstant('{app}') + '\sql', SW_SHOW, ewWaitUntilTerminated, ResultCode);

    end;
    Result := True;
end;

Answer 1

我无法模拟你的问题。我用过这个极简主义的代码：

[Code]
var
  CustomPageID: Integer;

procedure InitializeWizard;
var
  EditBox: TEdit;
  CustomPage: TWizardPage;
begin
  CustomPage := CreateCustomPage(wpWelcome, '', '');
  CustomPageID := CustomPage.ID;
  EditBox := TEdit.Create(WizardForm);
  EditBox.Parent := CustomPage.Surface;
end;

procedure CurPageChanged(CurPageID: Integer);
var
  EditBox: TEdit;
  Component: TComponent;
  CustomPage: TWizardPage;
begin
  if (CurPageID = CustomPageID) then
  begin
    CustomPage := PageFromID(CustomPageID);
    Component := CustomPage.Surface.Controls[0];
    if (Component is TEdit) then
    begin
      MsgBox('Controls[0] is assigned and is TEdit', mbInformation, MB_OK);
      EditBox := TEdit(Component);
      EditBox.Text := 'Hi, I''m just a modified edit text!';
    end;
  end;
end;