Entwickler-Ecke
Sonstiges (Delphi) - CanClose&BeendenClick
Tabakbrummel - So 16.10.05 22:00
Titel: CanClose&BeendenClick
Hallo erst mal
Ich habe da ein Problem mit CanClose und BeendenClick. Beim Programm beenden muß ich immer doppelt klicken um es zu beenden. Woran liegt der Fehler?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TForm1.Programmbeenden1Click(Sender: TObject);
begin
Application.MessageBox ('Programm wirklich beenden?', 'Bestätigung',
MB_YesNo+MB_IconQuestion+MB_DefButton2);
Close;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
VAR
Antwort : INTEGER;
begin
Antwort := Application.MessageBox ('Programm wirklich beenden?', 'Bestätigung',
MB_YesNo+MB_IconQuestion+MB_DefButton2);
CanClose := Antwort = IDYes;
end; |
Mfg
Tabakbrummel
Narses - So 16.10.05 23:19
Moin!
Ich würde sagen, lass Programmbeenden1Click() weg, dass mach doch schon das CanClose.
cu
Narses
Tabakbrummel - So 16.10.05 23:35
Hallo
Nee das geht nicht,denn ich habe das Programmbeenden1Click() im Menu Datei|Beenden und das CanClose fürs X.
Mfg
Tabakbrummel
Narses - So 16.10.05 23:36
Moin!
Dann mach im Programmbeenden1Click() nur ein Close; fettich. :wink:
cu
Narses
Tabakbrummel - Di 18.10.05 00:00
Hallo Narses
Es funktioniert und besten dank für den Tipp.
MfG
Tabakbrummel
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!