Wizard на Делфи

[Teror4uks]

Всем доброго времени суток!
Возникла необходимость написать простенький Мастер установки на делфи, чтобы как все современные установщики переходил на следующие вкладки не слишком бездумно (т.е. переход осуществлялся после выполнения какого действия, например согласие с лиц согл.), нашёл в сети один пример, который пояснял с чего начать и куда двигаться на его основе собрал Wizard, но возникла проблемка, а именно например при переходе на 3ю вкладку нужно выбрать куда будет устанавливаться "прога", как в современных wizard'ах, т.е. появляется окошечко с проводником, кто нибудь знает как организовать данное окошечко? есть ли какой нибудь компонент или хотя бы где об этом можно почитать? Буду премного благодарен за разъяснения
Да вот код проги

procedure TForm1.Button2Click(Sender: TObject);
begin
GoBack := false;
PageControl1.SelectNextPage(true , false);
If PageControl1.ActivePageIndex = 1 then Button2.Enabled := false;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GoBack:=true;
PageControl1.SelectNextPage(false , false);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
{ for i := 0 to PageControl1.PageCount-1 do
PageControl1.Pages[i].TabVisible := false; }
PageControl1.ActivePageIndex := 0;
CheckChange(0);
end;

procedure TForm1.CheckChange(NewIdx: integer);
begin
Button1.Enabled := NewIdx > 0;
Button2.Enabled := NewIdx < PageControl1.PageCount-1;
Button3.Visible := not Button2.Enabled;
Label1.Visible := RadioGroup2.ItemIndex > 0;

{ case NewIdx of
Button2.Enabled := Button2.Enabled and (RadioGroup1.ItemIndex > 0);
Button2.Enabled := RadioGroup2.ItemIndex > -1;
if RadioGroup2.ItemIndex > 0 then
if GoBack then
PageControl1.SelectNextPage(false, false) else
PageControl1.SelectNextPage(true, false);
end; }

end;


procedure TForm1.PageControl1Change(Sender: TObject);
begin
CheckChange(PageControl1.ActivePage Index);
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
CheckChange(PageControl1.ActivePage Index);
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
CheckChange(PageControl1.ActivePage Index);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
If CheckBox1.Checked = true then Button2.Enabled := true;
end;

[Streletz]

Можно попробовать TDirectoryOutline.

[doktor255]

Сообщение от Teror4uks

нужно выбрать куда будет устанавливаться

Uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var dir: string;
begin
if SelectDirectory('directory', 'c:\Program Files\', dir)
then Edit1.Text := dir;
end;

[Teror4uks]

Streletz , doktor255 спасибо!) плюсую вам! Тема закрыта

[Человек_Борща]

Есть компонент TNotebook, такой же как PageControl, но без закладок страниц, в остальном все тот же PageControl.