1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

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

Тема в разделе "Inno Setup", создана пользователем Devils Night, 16 июл 2014.

Статус темы:
Закрыта.
  1. Ветеран

    Регистрация:
    11 авг 2011
    Сообщения:
    567
    Симпатии:
    172
    Как скрыть кнопки Next| Back| Install | Retury?
    Блин... Короче все те, которые находятся внизу, в общей форме, т.е на всех страницах сразу?
     
  2. Ветеран Проверенный

    Регистрация:
    18 июн 2011
    Сообщения:
    691
    Симпатии:
    491
    Devils Night, а просто опустить кнопки ниже не поидет чем скрывать
     
  3. Ветеран

    Регистрация:
    11 авг 2011
    Сообщения:
    567
    Симпатии:
    172
    Было так просто, не заморачивался. Проблема в том что они все равно активны и работают, короче заблокировать надо чтоб не работали. Понадобилось свои кнопки создать, а родные выпилить.
     
  4. Ветеран Проверенный

    Регистрация:
    18 июн 2011
    Сообщения:
    691
    Симпатии:
    491
    Devils Night,
    Код (Text):
    [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 нравится это.
  5. Ветеран

    Регистрация:
    11 авг 2011
    Сообщения:
    567
    Симпатии:
    172
    vint56, Ого кодик. Это все для того чтоб убрать и заблокировать кнопки, лишнего кода нет?
    Глянул код, для проверки закомментировал это ->
    Код (Text):
    //  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 выбрана по умолчанию.

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

    Регистрация:
    26 дек 2011
    Сообщения:
    514
    Симпатии:
    601
    Пол:
    Мужской
    Так и пиши :)
    Код (Text):
    procedure InitializeWizard();
    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 нравится это.
  7. Ветеран

    Регистрация:
    11 авг 2011
    Сообщения:
    567
    Симпатии:
    172
    Это не просто, кнопка NextButton все равно работает, так же как и CancelButton.
     
  8. Ветеран Модератор

    Регистрация:
    15 июн 2011
    Сообщения:
    647
    Симпатии:
    253
    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 нравится это.
  9. Ветеран

    Регистрация:
    11 авг 2011
    Сообщения:
    567
    Симпатии:
    172
    CurPageChanged значит.

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

Поделиться этой страницей