Wizard-like application

← →
$HiC0 (2005-06-27 10:44) [0]

Добрый день! Собственно сабж. Встала задача написать приложение, состоящее из нескольких шагов (порядка 10), на каждом из которых пользователь отмечает checkBoxы и radioButtonы и в состоянии нажать на три кнопки Назад, Вперед и Отмена. В общем приложение типа Wizard. Так вот собственно и вопрос. Как лучше это сделать? Для кажжого окна нарисовать свой фрейм и показывать его по мере надобности скрывая все остальные? Подменять форму? Программно удалять с формы все контролы и размещать новые? Может есть какое-то иное решение которое не пришло мне в голову? Может кто сталкивался? Какие будут советы? Заранее спасибо!

← →
Плохиш © (2005-06-27 11:05) [1]

TPageControl

← →
Yuri Btr © (2005-06-27 11:05) [2]

Я делал так, размещал на форме PageControl, делал на нем несколько страниц - соответствующим каждому шагу, поднимал его немного вверх (свойство Top ~ -10) для того чтобы не отображались Tabы- закладки страниц. А внизу можно кинуть панель и разместить две кнопки - Далее и Отмена. И при нажатии кнопки далее - перелистываить страницы в PageControl

← →
Плохиш © (2005-06-27 11:08) [3]

> Yuri Btr © (27.06.05 11:05) [2]

TTabSheet.TabVisible + F1

← →
бывший (2005-06-27 11:17) [4]

TNotebook однозначно - проще всего ) правда там пара глюков с самим компонентом в design-time :(

← →
$HiC0 (2005-06-27 11:19) [5]

Спасибо! Буду пробовать!

← →
Yuri Btr © (2005-06-27 11:26) [6]

to Плохиш ©
???

← →
Плохиш © (2005-06-27 11:29) [7]

> Yuri Btr © (27.06.05 11:26) [6]

Что "???". Загляни в справку и не придётся делать "поднимал его немного вверх (свойство Top ~ -10) для того чтобы не отображались Tabы- закладки страниц"

← →
Yuri Btr © (2005-06-27 11:31) [8]

to бывший
Цитата из Delphi Help по TNoteBook

"...TNotebook is provided for backward compatibility. New applications should use TPageControl instead."

Однако он действительно удобней в данном случае, даже не смотря на то, что сама IDE Delphi использует компоненты с закладки Win3.1 - например TTabSet

← →
Yuri Btr © (2005-06-27 11:35) [9]

to Плохиш ©
Я это и без вас прекрасно понял, а вы пробовали делать это сами - табы исчезают, но как вы отобразите активную страницу - её таб всегда будет отображаться вверху - вследствии чего прийдестя его скрывать моим способом !

← →
begin...end © (2005-06-27 13:04) [10]

> Yuri Btr © (27.06.05 11:35) [9]

> как вы отобразите активную страницу - её таб всегда
> будет отображаться вверху - вследствии чего прийдестя
> его скрывать моим способом !

У всех TabSheet"ов PageControl"а устанавливаем TabVisible в False. Нужную в данный момент страницу отображаем, меняя свойство PageControl.ActivePageIndex. При этом страница отображается без всяких "табов", которые нужно было бы скрывать.

← →
Yuri Btr © (2005-06-27 13:20) [11]

to begin...end ©
Спасибо, не знал...
Но зачем Borland сделала, что в Design Time скрывются все страницы при установке TabVisible=false на всех страницах
Глюк?

> Но зачем Borland сделала, что в Design Time скрывются все
> страницы при установке TabVisible=false на всех страницах

А что должно быть?

Да, есть такой вопрос, насчет PageControl"a:
А как Ваш Wizard реагирует на комбинации Ctrl+Tab и Ctrl+Shoft+Tab?

Wizard-like application Найти похожие ветки