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

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

Вот снимок экрана с двумя последовательными формами: screen-shot

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

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

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

Tspad.nextForm(echipContractForm, clientContractForm);

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

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

9
задан Mike Spadaru 5 December 2011 в 12:44
поделиться