|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.01.2014, 22:25 | #1 |
Пользователь
Регистрация: 28.10.2013
Сообщений: 34
|
Wizard на Делфи
Всем доброго времени суток!
Возникла необходимость написать простенький Мастер установки на делфи, чтобы как все современные установщики переходил на следующие вкладки не слишком бездумно (т.е. переход осуществлялся после выполнения какого действия, например согласие с лиц согл.), нашёл в сети один пример, который пояснял с чего начать и куда двигаться на его основе собрал 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; |
19.01.2014, 22:42 | #2 |
Старожил
Регистрация: 03.01.2014
Сообщений: 2,870
|
Можно попробовать TDirectoryOutline.
|
19.01.2014, 22:53 | #3 |
Заблокирован
Регистрация: 31.03.2011
Сообщений: 976
|
|
19.01.2014, 23:02 | #4 |
Пользователь
Регистрация: 28.10.2013
Сообщений: 34
|
Streletz , doktor255 спасибо!) плюсую вам! Тема закрыта
|
19.01.2014, 23:12 | #5 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,430
|
Есть компонент TNotebook, такой же как PageControl, но без закладок страниц, в остальном все тот же PageControl.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Configuration Wizard | Sofi1703 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 18.06.2013 13:10 |
Data Form Wizard | sir.andrey | Помощь студентам | 2 | 02.11.2011 05:34 |
Com Object Wizard | _-Re@l-_ | Общие вопросы Delphi | 0 | 31.07.2010 16:04 |
А ля Wizard | doniyor | Общие вопросы Delphi | 7 | 23.06.2009 11:02 |