Forum: Sonstige Fragen zu Delphi
Delphi
by Hobby-Programmierer,
11. Jul 2006
Warum nicht im FormCloseQuery wie ich oben schon schrieb?
Forum: Sonstige Fragen zu Delphi
Delphi
by Hobby-Programmierer,
11. Jul 2006
... ich nochmalif Application.MessageBox('Hey Ollum hast du korekt bock auf tool dicht mache ?', 'Programm Beenden', MB_ICONWARNING or MB_YESNO ) = ID_YES then
Close
else
showmessage('test');
funktioniert ! Dein Fehler muss also woanders liegen. Um ein 'UnterFormular' zu schliessen musst Du es auch beim Namen nennen,Form2.Close sonst schliesst Du wie hier schon erwähnt, das gesamte...
Forum: Sonstige Fragen zu Delphi
Delphi
by Hobby-Programmierer,
11. Jul 2006
Logisch, Close beendet das Programm !
Ausserdem solltest Du vielleicht MessageDlg o.ä. benutzen.
Das unbeabsichtigte beenden könntest Du aber auch so verhindernprocedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= (MessageDlg('Programm beenden', mtWarning, , 0) = mrYes);
end;