Im Prinzip mache ich dieses (gekürzert Code):
Delphi-Quellcode:
Procedure TInsightForm.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
Free;
Action := caNone;
End;
InsightForm.ShowModal;
Tja, die Form verschwindet, aber der ShowModal-Aufruf wird nicht beendet und die ganze
VCL blockiert.
Wieso wird dieser Aufruf denn nicht beendet, obwohl dessen Form schon verschwunden ist?
PS: Action ist absichtlich caNone, da sonst ja versucht würde nach dieser Funktion noch auf die Form (welche ja weg ist) zuzugreifen.