Zitat von
omata:
...So und jetzt könnt Ihr ja wieder auf mich eindreschen...
Wieso ? Du bist der einzige, zumindest mir bekannte, der kapiert hat, wie man das benutzt.
Irgendwo stand doch, man könne die Daten nicht übergeben oder sowas ? Wieso nicht ?
Delphi-Quellcode:
frmArtSuch1 := TfrmArtSuch1.Create(self);
frmArtSuch1.ShowModal;
if frmArtSuch1.SucheDaten then with sgNr do begin
// bei mir : ermittelte Daten der Suchform (sofern vorhanden) im Grid anzeigen etc.
frmArtSuch1.Close;
end;
Nur wenn SucheDaten true ist wird die Suchform geschlossen. Ansonsten steht da 'nicht gefunden' und man kann neu suchen.
Na gut, wegen dem finally kriegst Du noch etwas Dresche. Im Normalfall reicht das :
Delphi-Quellcode:
procedure TKey.FormClose(Sender: TObject; var Action: TCloseAction);
begin
...
Action := caFree;
end;
Und genau das steht ganz am Anfang der Form-Hierarchie. Somit kann man das bei eigenen Forms nie mehr vergessen.