Я использую delphi 7 и пытаюсь сделать интерфейс мастера. Я не знаю, есть ли более простой способ сделать мастера, поэтому я думал о создании отдельных форм для каждого шага мастера, и когда пользователь нажимает «Далее», активная форма закрывается, а следующая открывается.
Вот снимок экрана с двумя последовательными формами:
Я создал процедуру, которая принимает 2 формы в качестве параметров: форма, которая будет закрыта, и следующая форма мастера
class Procedure Tspad.nextForm(showForm, closeForm: TForm);
begin
closeForm.Close;
showForm.Showmodal;
end;
Когда я нажимаю кнопку " Кнопка «Далее» выполняется следующий код:
Tspad.nextForm(echipContractForm, clientContractForm);
Когда я запускаю программу и нажимаю кнопку «Далее», появляется следующая форма, но текущая форма не закрывается.
Как я могу заставить это работать, или есть другой более эффективный способ создать мастера?