Код:
[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.
[code]
var
Page: TWizardPage;
Test_pnl: TPanel;
procedure InitializeWizard();
begin
Page:= CreateCustomPage(wpWelcome, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');
Test_pnl:= TPanel.Create(WizardForm);
with Test_pnl do begin
Top:= ScaleY(60);
Width:= ScaleX(497);
Height:= ScaleY(253);
BevelOuter:= bvNone;
Color:= clLime;
ParentBackground:= false;
Parent:= WizardForm;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
Test_pnl.Hide;
case CurPageID of
Page.ID: Test_pnl.Show;
end;
end;