Inno Setup：TInputQueryWizardPageのコンボボックス

Question

Inno Setupを使用して自分のプログラムのsetup.exeを作成します。私はMS SQL Serverの既存のデータベースのドロップダウンリスト（コンボボックス）を取得したいと思います。しかし私は、私が使用する必要があるカスタムウィザードのページを知りません。私はサーバー用の権限を持つウィザードページを作成しました。

どのようにするのが最適ですか？私のコード：

[Code] 
var 
    ServerDetailsPage: TInputQueryWizardPage; 

procedure InitializeWizard; 
begin 
    ServerDetailsPage := CreateInputQueryPage(wpSelectDir, 
    '', '', 'Please enter following data (SERVER) and click Next.'); 
    ServerDetailsPage.Add('IP Address (SERVER)', False); 
    ServerDetailsPage.Add('Port Number (SERVER', False); 
    ServerDetailsPage.Add('Domain Name\User Name (SERVER)', False); 
    ServerDetailsPage.Add('Password (SERVER)', True); 
    ServerDetailsPage.Values[0] := ''; 
    ServerDetailsPage.Values[1] := ''; 
    ServerDetailsPage.Values[2] := ''; 
    ServerDetailsPage.Values[3] := ''; 
end; 

Answer 1

コンボボックスを備えた既製のカスタムページはありません。

編集ボックス（TPasswordEdit）をコンボボックス（TNewComboBox）に置き換える必要があります。以下のよう

同様Multi-line edit in Inno Setup on page created by CreateInputQueryPageに、コードは次のようになります。

var 
    ServerDetailsPage: TInputQueryWizardPage; 
    ServerComboBox: TNewComboBox; 

procedure InitializeWizard; 
begin 
    ServerDetailsPage := 
    CreateInputQueryPage(
     wpSelectDir, '', '', 'Please enter following data (SERVER) and click Next.'); 
    ServerDetailsPage.Add('IP Address (SERVER)', False); 
    ServerDetailsPage.Add('Port Number (SERVER', False); 
    ServerDetailsPage.Add('Domain Name\User Name (SERVER)', False); 
    ServerDetailsPage.Add('Password (SERVER)', True); 
    ServerDetailsPage.Values[0] := ''; 
    ServerDetailsPage.Values[1] := ''; 
    ServerDetailsPage.Values[2] := ''; 
    ServerDetailsPage.Values[3] := ''; 

    { Create TNewComboBox on the same parent control and the same location as edit box } 
    ServerComboBox := TNewComboBox.Create(ServerDetailsPage); 
    ServerComboBox.Parent := ServerDetailsPage.Edits[0].Parent; 
    ServerComboBox.Left := ServerDetailsPage.Edits[0].Left; 
    ServerComboBox.Top := ServerDetailsPage.Edits[0].Top; 
    ServerComboBox.Width := ServerDetailsPage.Edits[0].Width; 
    ServerComboBox.Height := ServerDetailsPage.Edits[0].Height; 
    ServerComboBox.TabOrder := ServerDetailsPage.Edits[0].TabOrder; 
    ServerComboBox.Items.Add('server1'); 
    ServerComboBox.Items.Add('server2'); 

    { Hide the original edit box } 
    ServerDetailsPage.PromptLabels[0].FocusControl := ServerComboBox; 

    { Link the label to the combo box } 
    { (has a practical effect only if there were a keyboard accelerator on the label) } 
    ServerDetailsPage.Edits[0].Visible := False; 
end; 

今

---

は、コンボボックスの値を参照するために、あなたは、もちろん、もはやServerDetailsPage.Values[0]を使用することはできません。代わりにServerComboBox.Textを使用してください。

---