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

Вопрос Как прикрутить форму выбора папок

Тема в разделе "Inno Setup", создана пользователем Chopser, 27 фев 2018.

  1. Старожил

    Регистрация:
    11 окт 2012
    Сообщения:
    28
    Симпатии:
    0
    Подскажите как прицепить на кнопку форму выбора папок и дисков, ту что открывается по нажатию кнопки "Обзор"...
     
  2. Ветеран Супер модератор

    Регистрация:
    5 мар 2016
    Сообщения:
    370
    Симпатии:
    396
    Пол:
    Мужской
    Chopser:

    Код (Inno):
    [Setup]
    AppName=My Application
    AppVersion=1.5
    DefaultDirName={pf}\My Application

    [code]
    var
      MyButton: TButton;

    procedure ClickEvent(Sender: TObject);
    begin
      WizardForm.DirBrowseButton.OnClick(nil); //or WizardForm.GroupBrowseButton.OnClick(nil);
    end;

    procedure InitializeWizard;
    begin
    MyButton:=TButton.Create(nil);
    with MyButton do begin
      SetBounds(ScaleX(10), ScaleY(327), ScaleX(80), ScaleY(23));
      OnClick:=@ClickEvent;
      Caption:='MyButton';
      Parent:=WizardForm;
     end;
    end;
    Код (Inno):
    [Setup]
    AppName=My Application
    AppVersion=1.5
    DefaultDirName={pf}\My Application

    [code]
    var
      MyButton: TButton;

    procedure ClickEvent(Sender: hWnd);
    begin
      WizardForm.DirBrowseButton.OnClick(nil); //or WizardForm.GroupBrowseButton.OnClick(nil);
    end;

    procedure InitializeWizard;
    begin
      MyButton:=BtnCreate(WizardForm.Handle, 10, 327, 80, 23, 'picture.format', 0, True);
      BtnSetEvent(MyButton, BtnClickEventID, CallBackAddr('ClickEvent'));
    end;
     
    Chopser и sergey3695 нравится это.
  3. Старожил

    Регистрация:
    11 окт 2012
    Сообщения:
    28
    Симпатии:
    0
    Спасибо! А если используется ISSkin можно сделать чтоб форма выбора папок была не скинированной?
     
    Последнее редактирование: 28 фев 2018
  4. Ветеран

    Регистрация:
    17 сен 2016
    Сообщения:
    63
    Симпатии:
    7
    Chopser, Не мое дело, он он плохо работает (ISSkin), лучше от него отказаться
     
  5. Старожил

    Регистрация:
    11 окт 2012
    Сообщения:
    28
    Симпатии:
    0
    agent555, а чего делать то тогда? На ХР нормально работал, а на Win 7 глючит сволочь.
     
  6. Пользователь

    Регистрация:
    21 ноя 2016
    Сообщения:
    28
    Симпатии:
    2
    VCL Styles в помощь
     

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