Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
31. Mär 2006
Dann ist das die Möglichkleit ein Programm zu beenden, ohne, dass das Programm etwas dagegen tun kann. ;)
Wieso willst du denn das Beenden des Programms verhindern?
MfG
freak
Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
31. Mär 2006
Du gehst auf das Formular, klickst auf Ereignisse(Events) im Objektinspektor und dann per Doppelklick auf das Feld hinter OnCloseQuery. Dann öffnet sich die Methode des Ereignisses und du kannst den oben geposteten Code rein setzen. ;)
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False;
end;
Dadurch wird das Schließen auf der Ebene...
Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
31. Mär 2006
Ich habs mal schnell getestet und bin überrascht zu der Erkenntnis gekommen, das ich unrecht hatte. :mrgreen: Deshalb mein Edit. ;)
MfG
freak
Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
31. Mär 2006
Wenn das Programm "gewaltsam" geschlossen wird, kann es diese Entscheidung doch nicht mehr selbst treffen. :gruebel: Das ist doch der Sinn der Sache. Wenn du möchtest das dein Programm nachfragt, solltest du es mit Close; schließen.
Im OnCloseQuery z.B.:
CanClose := MessageBox(0, 'Schließen', 'Wirklich beenden?', MB_YESNO + MB_ICONQUESTION) = idYes;
Ich bin erstaunt. :)