probleme mit einer messagebox..

[agm65]

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

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
Kanns leider ned testen (eigentlich unnötig), bin auf der Arbeit

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

[sh17]

an welcher Stelle rufst Du den die Messagebox auf?

[agm65]

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