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

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

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

  1. Старожил

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

    Регистрация:
    5 мар 2016
    Сообщения:
    331
    Симпатии:
    365
    Пол:
    Мужской
    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
    Сообщения:
    22
    Симпатии:
    0
    Спасибо! А если используется ISSkin можно сделать чтоб форма выбора папок была не скинированной?
     
    Последнее редактирование: 28 фев 2018
  4. Пользователь

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

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

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