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

Chopser

Новичок
Подскажите как прицепить на кнопку форму выбора папок и дисков, ту что открывается по нажатию кнопки "Обзор"...
 

Nemko

Дилетант
Модератор
Chopser:

Код:
[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;
Код:
[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

Новичок
Спасибо! А если используется ISSkin можно сделать чтоб форма выбора папок была не скинированной?
 
Последнее редактирование:

agent555

Участник
Chopser, Не мое дело, он он плохо работает (ISSkin), лучше от него отказаться
 

Chopser

Новичок
agent555, а чего делать то тогда? На ХР нормально работал, а на Win 7 глючит сволочь.
 
Сверху