probleme mit einer messagebox..

[agm65]

hey leute sorry ich nochmal, hab hier zu kämpfen mit ner störrischen messagebox:

Delphi-Quellcode:

if Application.MessageBox('Hey Ollum hast du korekt bock auf tool dicht mache ?', 'Programm Beenden', MB_ICONWARNING or MB_YESNO ) = ID_YES then Close;

das geht auch ohne probleme aber wenn ich jetzt weiter machen like this:

Delphi-Quellcode:

if Application.MessageBox('Hey Ollum hast du korekt bock auf tool dicht mache ?', 'Programm Beenden', MB_ICONWARNING or MB_YESNO ) = ID_YES then Close
else
blabla

verschwindet die form und das soll sie nicht ?

danke für hilfe

[Hobby-Programmierer]

Logisch, Close beendet das Programm !
Ausserdem solltest Du vielleicht MessageDlg o.ä. benutzen.

Das unbeabsichtigte beenden könntest Du aber auch so verhindern

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:= (MessageDlg('Programm beenden', mtWarning, [mbYes, mbNo], 0) = mrYes);
end;

[Flips]

Hi.

IMHO würde ich lieber den MessageDlg verwenden.
Damit gehts so:

Delphi-Quellcode:

if MessageDlg('Hey Ollum hast du korekt bock auf tool dicht mache ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
  Form1.Close
else
  //Halt ned close

Hier noch ne Liste der Parameter

Cya...

[edit]Da war wohl jmd schneller ;)[/edit]

[agm65]

hab nur ein problem, das ist nicht meine mainform sondern eher eine unter form und die soll ja der hauptform sagen canclose also frmmain.close

[agm65]

ja genau bei dem //halt ne close passiert das gleiche, die form wird auf hide gestellt

[Flips]

der form, die form...du verwirrst mich. form is ne abkürzung für formular, ich würd sagen das form :)
egal, ist ein wenig OT...

Mach mal nur zum testen so

Delphi-Quellcode:

if MessageDlg('Hey Ollum hast du korekt bock auf tool dicht mache ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
  Form1.Close
else
  Application.ProcessMessages;  //iss schöner als begin end ;)

[agm65]

passiert das gleiche der die das form geht auf hide...

[Flips]

Wenn du auf Nein klickst dann geht das Formular zu???
Versteh ich ned :D
Kanns leider ned testen (eigentlich unnötig), bin auf der Arbeit :mrgreen:

Also wenn dein Windows oder Delphi oder mein Code so komisch ist, dann würd ich am besten einfach schreiben

Delphi-Quellcode:

else
  Form1.Show;

Is zwar schlecht aber dann kann nichtmehr die Antwort kommen: Es geht trotzdem zu :stupid:

[sh17]

an welcher Stelle rufst Du den die Messagebox auf?

[agm65]

form1.show bringt leider auch nichts ..rufe direkt im form close auf