2011-02-01 26 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; 

は、より多くの例については、\プログラムファイル\ Inno Setupの5つの\例でCodeClasses.issのサンプルスクリプトを見てみましょう。

+0

ライフセーバー。迅速な対応をありがとう – SharpAffair

関連する問題