Inno Setup - 创建自定义消息框（是/否）

Question

如何创建类似于此代码的自定义消息框：Inno Setup - Hide X button (close) at message box（用于带有一个按钮的消息框）但带有两个按钮，是/否，可能不同每次选举的行动。

Answer 1

只需添加第二TButton：中Form.ShowModal

function MyYesNoMessageBox: Integer; 
var 
    Form: TSetupForm; 
    YesButton, NoButton: TNewButton; 
    MesssageLabel: TLabel; 
begin 
    Form := CreateCustomForm; 
    Form.BorderStyle := bsDialog; 
    Form.Position := poOwnerFormCenter; 
    Form.ClientWidth := ScaleX(400); 
    Form.ClientHeight := ScaleY(130); 
    Form.Caption := 'Caption'; 

    MesssageLabel := TLabel.Create(Form); 
    MesssageLabel.Parent := Form; 
    MesssageLabel.Left := ScaleX(16); 
    MesssageLabel.Top := ScaleX(16); 
    MesssageLabel.Width := Form.ClientWidth - 2*ScaleX(16); 
    MesssageLabel.Height := ScaleY(32); 
    MesssageLabel.AutoSize := False; 
    MesssageLabel.WordWrap := True; 
    MesssageLabel.Caption := 'Lorem ipsum dolor sit amet, ...'; 

    YesButton := TNewButton.Create(Form); 
    YesButton.Parent := Form; 
    YesButton.Width := ScaleX(80); 
    YesButton.Height := ScaleY(24); 
    YesButton.Left := Form.ClientWidth - 2 * (YesButton.Width + ScaleX(8)); 
    YesButton.Top := Form.ClientHeight - YesButton.Height - ScaleY(8); 
    YesButton.Caption := '&Yes'; 
    YesButton.ModalResult := mrYes; 

    NoButton := TNewButton.Create(Form); 
    NoButton.Parent := Form; 
    NoButton.Width := YesButton.Width; 
    NoButton.Height := YesButton.Height; 
    NoButton.Left := YesButton.Left + YesButton.Width + ScaleX(8); 
    NoButton.Top := YesButton.Top; 
    NoButton.Caption := '&No'; 
    NoButton.ModalResult := mrNo; 

    Result := Form.ShowModal; 
end; 

和测试返回代码（或检查Form.ModalResult）：

if MyYesNoMessageBox = mrYes then 
begin 
    MsgBox('Yes selected', mbInformation, MB_OK); 
end 
    else 
begin 
    MsgBox('No selected', mbInformation, MB_OK); 
end;