Формы ShowModal

[SoftKoc]

Здравствуйте!

У меня есть 3 формы.
при запуске у меня в родительской форме:

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.ShowModal;
end;

То есть перед открытием родительской формы я показываю дочернюю фрму (Form2), а вот по закрытию (Form2) показывается родительская форма(Form1) мне нужно после того как покажется (Form1) сразу же сделать

Form3.ShowModal;

Ясно что вот этот способ не подходит:

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.ShowModal;
 Form3.ShowModal;
end;

Подскажите пожалуйста что делать, как это реализовать?

Заранее очень благодарен!

[Sanprof]

как вариант положить на форму таймер у него Enabled = false, интервал 300
потом

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.ShowModal;
 Timer1.Enabled := true;
end;

а в собитии таймера OnTimer

begin
timer1.Enabled := false;
Form3.ShowModal;
end;

[SoftKoc]

Сообщение от Sanprof

как вариант положить на форму таймер у него Enabled = false, интервал 300
потом

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.ShowModal;
 Timer1.Enabled := true;
end;

а в собитии таймера OnTimer

begin
timer1.Enabled := false;
Form3.ShowModal;
end;

Я тоже так думал, но просто таймер как-то не хочется использовать

[Sanprof]

тогда еще вариант, у меня работает

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.ShowModal;
 Sleep(50);
 Form3.ShowModal;
end;

[SoftKoc]

Сообщение от Sanprof

тогда еще вариант, у меня работает

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.ShowModal;
 Sleep(50);
 Form3.ShowModal;
end;

А у меня все равно сначала 2 потом 3 а вот потом только 1.
А должно 2 - 1 - 3.

[Sanprof]

ааа, просто не понял сути задачи, тогда еще вариант

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.ShowModal;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Show;
  Form3.ShowModal;
end;

[SoftKoc]

Сообщение от Sanprof

ааа, просто не понял сути задачи, тогда еще вариант

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.ShowModal;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Show;
  Form3.ShowModal;
end;

Огромное спасибо, вроде все работает как нужно!!! +