Помогите пожалуйста сделать кнопку "Отмена"
Как сделать свою кнопку вместо стандартной ?
P.S
Родная кнопка у меня отключена и сделана невидимой
Скрытый текст
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{FC9B3E48-8A0B-49FA-B161-675874D96F13}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
DisableWelcomePage=no
AllowCancelDuringInstall=no
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
[code]
procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.CancelButton.Enabled := False;
WizardForm.CancelButton.Visible := False;
end;
procedure TestButtonOnClick(Sender: TObject);
begin
MsgBox('Тест!', mbInformation, MB_OK)
end;
procedure InitializeWizard();
var
TestButton: TButton;
begin
WizardForm.OuterNotebook.Height := ScaleY(361);
WizardForm.InnerNotebook.Height := ScaleY(285);
WizardForm.Bevel.Parent := WizardForm.WelcomePage;
WizardForm.NextButton.BringToFront;
WizardForm.BackButton.BringToFront;
WizardForm.CancelButton.BringToFront;
TestButton:=TButton.Create(WizardForm);
with TestButton do
begin
Left := ScaleX(237);
Top := ScaleY(327);
Width := ScaleX(80);
Height := ScaleY(23);
Caption:='Тест';
OnClick:=@TestButtonOnClick;
Parent:=WizardForm.WelcomePage;
end;
end;