создание интерфейса мастера в Delphi 7

Question

Я использую Delphi 7 и пытаюсь создать интерфейс мастера. Я не знаю, есть ли более простой способ создания мастера, поэтому я думал о создании отдельных форм для каждого шага мастера, и когда пользователь нажимает «Далее», активная форма закрывается, а открывается следующая.

Вот скриншот из двух последовательных форм:

Я сделал процедуру, которая принимает 2 формы в качестве параметров: форму, которая будет закрыта, и следующую форму мастера

class Procedure Tspad.nextForm(showForm, closeForm: TForm);
begin
   closeForm.Close;
   showForm.Showmodal;
end;

Когда я нажимаю кнопку «Далее», выполняется следующий код:

Tspad.nextForm(echipContractForm, clientContractForm);

Когда я запускаю программу и нажимаю кнопку «Далее», появляется следующая форма, но текущая не закрывается.

Как я могу сделать эту работу, или есть еще более эффективный способ создания мастера?

Answer 1

Один из самых распространенных способов создания мастера - использование элемента управления страницей.Каждая отдельная страница мастера представляет собой отдельную страницу / вкладку в элементе управления страницей.Я считаю, что именно так Windows реализует мастера.

Естественно, вы хотите скрыть все вкладки.Сделайте это, установив TabVisible в False для каждой вкладки.Если вы хотите перемещаться вперед и назад с помощью мастера, например, когда пользователь нажимает кнопки «Далее» или «Предыдущий», сделайте это, установив ActivePage или ActivePageIndex в зависимости от ваших предпочтений.

Answer 2

Хорошей практикой для разделения контента, отображаемого в одной форме, является использование Frames .

A Рамка очень похожа на форму, за исключением того, что у нее нет собственного окна, но она находится внутри формы хоста .

В сочетании с (как предположил Дэвид Хеффернан) TPageControl или даже TNotebook (, который почти такой же, как TPageControl, только у него нет вкладок для начала ), в итоге вы получите легко обслуживаемый Мастер.

Answer 3

JVCL имеет хороший контроль, чтобы сделать мастера очень простым и эффективным способом (TJvWizard).См. http://jvcl.delphi -jedi.org /

Answer 4

Вы можете попробовать это:

• Мастер Balmsoft выпущен под LGPL.
• Delphi Wizard Framework от члена SO Стивен Р. Камрадт .

Answer 5

Вы можете протестировать некоторые компоненты, которые могут помочь вам в этой задаче (внутренне используя tPageControl или TNotebook).Смотрите эту ссылку .

С уважением.

Answer 6

Вы также можете рассмотреть TMS TAdvSmoothStepControl (не бесплатно!).Другое решение, но только «внешнее» для вашей программы, заключается в использовании Inno Setup для создания мастера, даже в целях «установки без установки».

На самом деле с Inno Setup вы можете много думать (изменить INI-файл и реестр, запускать / останавливать программы ...), которые могут быть полезны для мастера без «установки» программы.