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