Вопрос Как скрыть кнопки Next| Back| Install | Return?

Статус
В этой теме нельзя размещать новые ответы.

Devils Night

Ветеран
Как скрыть кнопки Next| Back| Install | Retury?
Блин... Короче все те, которые находятся внизу, в общей форме, т.е на всех страницах сразу?
 

vint56

Ветеран
Проверенный
Devils Night, а просто опустить кнопки ниже не поидет чем скрывать
 

Devils Night

Ветеран
а просто опустить кнопки ниже не поидет чем скрывать
Было так просто, не заморачивался. Проблема в том что они все равно активны и работают, короче заблокировать надо чтоб не работали. Понадобилось свои кнопки создать, а родные выпилить.
 

vint56

Ветеран
Проверенный
Devils Night,
Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
  OldEvent_CancelButtonClick: TNotifyEvent;
  OldEvent_NextButtonClick: TNotifyEvent;
  OldEvent_BackButtonClick: TNotifyEvent;

procedure _CancelButtonClick(Sender: TObject); forward;
procedure _NextButtonClick(Sender: TObject); forward;
procedure _BackButtonClick(Sender: TObject); forward;

procedure InitializeWizard();
begin
  with WizardForm.CancelButton do
  begin
    OldEvent_CancelButtonClick := OnClick;
    OnClick := @_CancelButtonClick;
  end;

  with WizardForm.NextButton do
  begin
    OldEvent_NextButtonClick := OnClick;
    OnClick := @_NextButtonClick;
  end;

  with WizardForm.BackButton do
  begin
    OldEvent_BackButtonClick := OnClick;
    OnClick := @_BackButtonClick;
  end;

  with WizardForm.CancelButton do
  begin
    Top := ScaleY(447);
  end;

  with WizardForm.NextButton do
  begin
    Top := ScaleY(447);
  end;

  with WizardForm.BackButton do
  begin
    Top := ScaleY(447);
  end;
end;

procedure _CancelButtonClick(Sender: TObject);
begin
//  OldEvent_CancelButtonClick(Sender);
end;

procedure _NextButtonClick(Sender: TObject);
begin
//  OldEvent_NextButtonClick(Sender);
end;

procedure _BackButtonClick(Sender: TObject);
begin
//  OldEvent_BackButtonClick(Sender);
end;
 

Devils Night

Ветеран
vint56, Ого кодик. Это все для того чтоб убрать и заблокировать кнопки, лишнего кода нет?
Глянул код, для проверки закомментировал это ->
Код:
//  with WizardForm.CancelButton do
//  begin
//    Top := ScaleY(447);
//  end;
//
//  with WizardForm.NextButton do
//  begin
//    Top := ScaleY(447);
//  end;
//
//  with WizardForm.BackButton do
//  begin
//    Top := ScaleY(447);
//  end;
на кнопке Next имеется эффект наведения мыши или как там его, короче кнопка Next выбрана по умолчанию.

Может можно примерно такого вида сделать
Код:
procedure InitializeWizard();
begin
  with WizardForm.DirBrowseButton do
  begin
    Enabled := False;
  end;
end;
???
 

Edison007

Ветеран
Модератор
procedure CurPageChanged(CurPageID: Integer);
begin
with WizardForm do
begin
BackButton.Enabled := False;
BackButton.SetBounds(0, 0, 0, 0);

NextButton.Enabled := False;
NextButton.SetBounds(0, 0, 0, 0);
end;
end;
 

Devils Night

Ветеран
procedure CurPageChanged(CurPageID: Integer);
CurPageChanged значит.

Edison007, Благодарю за наводку
Код:
procedure CurPageChanged(CurPageID: Integer);
begin
with WizardForm do
begin
BackButton.Visible := False;
NextButton.Visible := False;
end;
end;
vint56, YURSHAT, Edison007, Благодарю всех за помощь, очень подсобили.
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху