Hallo zusammen,
möchte aus einer procedure die TForm.FormClose aufrufen, so dass sich das Fenster TForm auch schliesst.
So habe ich es versucht:
Delphi-Quellcode:
procedure TFormPasswort.BitBtnOKClick(Sender: TObject);
var
Action: TCloseAction;
begin
Action := caHide;
FormPasswort.FormClose(Sender, Action);
end;
procedure TFormPasswort.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ED_Passwort1.text := '';
ED_Passwort2.text := '';
end;
Es geht nur über das X oben rechts auf der Form. Wie schaffe ich das über den BitBtnOK ?
Gruss
Holger