Hallo,
nachdem der Osterhase so brav
war, habe ich mich noch einmal hingesetzt und eine Lösung für mein Problem gefunden.
Folgender Code "verhindert" das Schließen (besser: öffnet es noch einmal) eines modalen Fensters nach dem es geschlossen (sic!) wurde.
Delphi-Quellcode:
TYPE
TForm2 =
CLASS(TForm)
...
PRIVATE
{ Private-Deklarationen }
PUBLIC
FUNCTION ShowModal: Integer;
OVERRIDE;
{ Public-Deklarationen }
END;
FUNCTION TForm2.ShowModal: Integer;
BEGIN
// Auf alle Fälle verstecken, sonst Exception bei ShowModal
Self.Hide;
Self.Caption := '
Debug ON';
INHERITED ShowModal;
Result := ModalResult;
Self.Show;
Self.Caption := '
Debug OFF';
END;
Das Ganze funktioniert, aber nach dem Schließen "flackert" das Fenster kurz,
da es sich wieder neu aufbauen muß, das ist wenig elegant.
Daher untersuchte ich die Methode ShowModal etwas genauer, und starte einen neuen Thread
In virt. Meth. wird stat. Meth. aufgerufen, diese Verdecken?.