[setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
OutputDir=.
[Code]
var
Next: String;
Visible, Close: boolean;
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
Cancel := True;
end;
function NextButtonClick(CurPageID: Integer): Boolean;
begin
if WizardForm.CancelButton.Caption=SetupMessage(msgButtonNo) then
begin
Close:= True;
WizardForm.Close;
end else
Result := True;
end;
procedure OnCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= Close;
if WizardForm.NextButton.Caption=SetupMessage(msgButtonYes) then
begin
WizardForm.BackButton.Visible:= Visible;
WizardForm.CancelButton.Caption:= SetupMessage(msgButtonCancel);
WizardForm.NextButton.Caption:= Next;
end else begin
Next:= WizardForm.NextButton.Caption;
Visible:= WizardForm.BackButton.Visible;
WizardForm.BackButton.Hide;
WizardForm.CancelButton.Caption:= SetupMessage(msgButtonNo);
WizardForm.NextButton.Caption:= SetupMessage(msgButtonYes);
end;
end;
procedure InitializeWizard();
begin
WizardForm.OnCloseQuery:= @OnCloseQuery;
end;
procedure OnCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= Close;
if WizardForm.NextButton.Caption=SetupMessage(msgButtonYes) then
begin
WizardForm.BackButton.Visible:= Visible;
WizardForm.CancelButton.Caption:= SetupMessage(msgButtonCancel);
WizardForm.NextButton.Caption:= Next;
NewIconImage1.Hide;
Label3.Hide;
end else begin
Супер. помогло... Спасибо!EvilAlex,
Код:procedure OnCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:= Close; if WizardForm.NextButton.Caption=SetupMessage(msgButtonYes) then begin WizardForm.BackButton.Visible:= Visible; WizardForm.CancelButton.Caption:= SetupMessage(msgButtonCancel); WizardForm.NextButton.Caption:= Next; NewIconImage1.Hide; Label3.Hide; end else begin
procedure OnCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= Close;
if WizardForm.NextButton.Caption=SetupMessage(msgButtonYes) then
begin
WizardForm.BackButton.Visible:= Visible;
WizardForm.CancelButton.Caption:= SetupMessage(msgButtonCancel);
WizardForm.NextButton.Caption:= Next;
NewIconImage1.Hide;
Label5.Hide;
WizardForm.WizardBitmapImage.Show;
WizardForm.NextButton.SetBounds(468, 375, 108, 28);
Bevel3.Hide;
Bevel4.Hide;
Bevel5.Hide;
end else begin
Next:= WizardForm.NextButton.Caption;
Visible:= WizardForm.BackButton.Visible;
WizardForm.BackButton.Hide;
Bevel3.Show;
Bevel4.Show;
Bevel5.Show;
WizardForm.CancelButton.Caption:= SetupMessage(msgButtonNo);
WizardForm.NextButton.SetBounds(354, 375, 108, 28);
WizardForm.NextButton.Caption:= SetupMessage(msgButtonYes);
WizardForm.WizardBitmapImage.Hide;
Hide - скрыть, Show - показать. И так Show - сообщение о выходе. Hide - if CurPageId=то-тото (var CurPageId: integer) и так далее. Ничего сложного. В чем могли возникнуть по-моему мнению проблемы я сделал в примере.А как сделать чтобы при открытии сообщения, скрывалось все что есть на странице, а когда нажимаешь нет, то появлялось обратно...
Спасибо большое, вот что значит хорошая мысля приходит опосля))) Все испробовал. а панель не дагодался!EvilAlex, создай панель, на ней всё размести (кнопки, лебелы), а потом только показывай, скрывай её (панель). Вот и всё. Никаких сложностей.
че-то тоже не подумал об этомсоздай панель