2011-02-01 114 views

回答

10

是的,这是可能的:

[code] 
procedure AboutButtonOnClick(Sender: TObject); 
begin 
    MsgBox('This is a demo of how to create a button!', mbInformation, mb_Ok); 
end; 

procedure CreateAboutButton(ParentForm: TSetupForm; CancelButton: TNewButton); 
var 
    AboutButton: TNewButton; 
begin 
    AboutButton := TNewButton.Create(ParentForm); 
    AboutButton.Left := ParentForm.ClientWidth - CancelButton.Left - CancelButton.Width; 
    AboutButton.Top := CancelButton.Top; 
    AboutButton.Width := CancelButton.Width; 
    AboutButton.Height := CancelButton.Height; 
    AboutButton.Caption := '&About...'; 
    AboutButton.OnClick := @AboutButtonOnClick; 
    AboutButton.Parent := ParentForm; 
end; 


procedure InitializeWizard(); 
begin 
    CreateAboutButton(WizardForm, WizardForm.CancelButton); 
end; 

更多的例子,看看在CodeClasses.iss示例脚本在\ Program Files文件\ Inno Setup的5个\实例。

+0

拯救生命。感谢您的及时回应 – SharpAffair 2011-02-02 15:21:55