![]() |
FormClose aufrufen und ausführen !!!
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:
Es geht nur über das X oben rechts auf der Form. Wie schaffe ich das über den BitBtnOK ?
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; Gruss Holger |
Re: FormClose aufrufen und ausführen !!!
Einfach die Methode Close aufrufen.
|
Re: FormClose aufrufen und ausführen !!!
Versuch es mal so:
Delphi-Quellcode:
procedure TFormPasswort.BitBtnOKClick(Sender: TObject);
begin FormPasswort.Close; end; procedure TFormPasswort.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caHide; ED_Passwort1.text := ''; ED_Passwort2.text := ''; end; |
Re: FormClose aufrufen und ausführen !!!
Falls Du ein anderes Form schliessen willst, musst Du die unit mit dem zu schliessenden Form in deine unit aufnehmen in den Uses.
Dann machst Du
Delphi-Quellcode:
procedure TMainForm.BuSchliessenClick (Sender: TObject);
begin FormXY.Close; end; |
Re: FormClose aufrufen und ausführen !!!
@DeddyH:
Du solltest die Zeile
Delphi-Quellcode:
noch rauslassen, sonst meckert der Compiler ;)
Action := caHide;
|
Re: FormClose aufrufen und ausführen !!!
Zitat:
|
Re: FormClose aufrufen und ausführen !!!
Zitat:
|
Re: FormClose aufrufen und ausführen !!!
Zitat:
P.S.: Ich habe keine Ahnung, was Deine Signatur bedeuten soll ;) |
Re: FormClose aufrufen und ausführen !!!
Zitat:
Man kann vieles, aber ob es les-, wart- und pflegbar ist, ist eine andere Sache. Ich lösche grundsätzlich diese globalen Deklaration raus (Ausnahme: meine MainForm). |
Re: FormClose aufrufen und ausführen !!!
Danke für die vielen Tips.
Ich habe einfach zu kompliziert gedacht. Einfach FormPasswort.Close aufrufen ... das wars Gruss Holger |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:19 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz