Guck dir mal TForm.ShowModal und TForm.ModalResult an, bzw. auch TButton.ModalResult. (Tipp: Schließen über das rote X dürfte "mrNone" liefern.)
Plediere ebenfalls für Showmodal.
Siehe Quelltext für Anwendung:
Delphi-Quellcode:
begin
Application.Initialize;
Application.MainFormOnTaskBar:= true;
frm_Login:= Tfrm_Login.Create(nil);
try
if frm_Login.ShowModal = mrOk then
Application.CreateForm(Tfrm_Start, frm_Start);
finally
frm_Login.Free;
end;
Application.Run;
end.
So wird erst dein Chatfenster erstellt, wenn dein Login ein mrOk liefert, falls es das nicht tut und wird beendet, schließt sich die komplette Anwendung.