OnCloseQuery :: Programm schließt nicht richtig

**flomei**

Hallo!
Ich habe folgende OnCloseQuery Prozedur geschrieben:

Delphi-Quellcode:

			procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

  begin

    if

      MessageDlg('Das Programm wird nun beendet!' +#10#13 +'Einstellungen werden gespeichert.' +#10#13

      +'Fortfahren?', mtInformation,

      [mbYes, mbNo],0)=mrYes

    then

      begin

        CanClose := true;

        Close

      end

    else

      CanClose := false;

  end;

Nur leider funktioniert es nicht wie gewünscht. Klicke ich auf Yes dann beendet sich das Programm nicht, der Dialog bleibt auch da.
Klicke ich zunächst auf No verschwindet der Dialog wieder wie gewünscht und man kann weitermachen. Klicke ich aber einmal auf Yes und dann auf No beendet sich das Programm. Woran kann das liegen?

Thx for help!

MfG Florian

**neolithos**

Nimm mal das Close heraus
das ist vööllig fehl am platz

**Tpercon**

markieren

Delphi-Quellcode:

			        CanClose := true;

        Close <- daran!!

Nimm das Close mal raus!

**neolithos**

markieren

Delphi-Quellcode:

			CanClose := 

  MessageDlg(

    'Das Programm wird nun beendet!'#13 +

    'Einstellungen werden gespeichert.'#13 +

    'Fortfahren?', mtInformation, [mbYes, mbNo],0) = mrYes;

So würde ich das übrigens schreiben...

**flomei**

Ach ja...

Das wird ja so oder so geschlossen!

@neolithos: Hab ich geändert. Ist doch ein ganzes Stück übersichtlicher.

Nochmal Danke für eure Hilfe!

MfG Florian

OnCloseQuery :: Programm schließt nicht richtig

OnCloseQuery :: Programm schließt nicht richtig

Re: OnCloseQuery :: Programm schließt nicht richtig

Re: OnCloseQuery :: Programm schließt nicht richtig

Re: OnCloseQuery :: Programm schließt nicht richtig

Re: OnCloseQuery :: Programm schließt nicht richtig

Forumregeln

neolithos Registriert seit: 31. Jul 2003 Ort: Dresden 1.386 Beiträge Delphi 7 Architect	#2 Re: OnCloseQuery :: Programm schließt nicht richtig 9. Sep 2003, 12:20 Nimm mal das Close heraus das ist vööllig fehl am platz - ciao neo - Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
	Zitat

Tpercon Registriert seit: 7. Jun 2002 638 Beiträge Delphi 5 Professional	#3 Re: OnCloseQuery :: Programm schließt nicht richtig 9. Sep 2003, 12:21 markieren Delphi-Quellcode: CanClose := true; Close <- daran!! Nimm das Close mal raus!
	Zitat

neolithos Registriert seit: 31. Jul 2003 Ort: Dresden 1.386 Beiträge Delphi 7 Architect	#4 Re: OnCloseQuery :: Programm schließt nicht richtig 9. Sep 2003, 12:45 markieren Delphi-Quellcode: CanClose := MessageDlg( 'Das Programm wird nun beendet!'#13 + 'Einstellungen werden gespeichert.'#13 + 'Fortfahren?', mtInformation, [mbYes, mbNo],0) = mrYes; So würde ich das übrigens schreiben... - ciao neo - Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
	Zitat

flomei Registriert seit: 17. Jan 2003 Ort: Schieder-Schwalenberg 2.094 Beiträge Delphi 2005 Personal	#5 Re: OnCloseQuery :: Programm schließt nicht richtig 9. Sep 2003, 14:14 Ach ja... Das wird ja so oder so geschlossen! @neolithos: Hab ich geändert. Ist doch ein ganzes Stück übersichtlicher. Nochmal Danke für eure Hilfe! MfG Florian Florian Meier ... ist raus. Vielen Dank für die Zeit mit euch! http://www.flomei.de -- http://www.md5hash.de
	Zitat