Was stimmt an dieser Appliacation.Messagebox nicht?

[Die Muhkuh]

Hi,

ich hab hier foldengen Code:

Delphi-Quellcode:

  var
  X: Integer;
begin
  //Sicherheitsabfrage
  x := Application.MessageBox('Wollen sie wirklich beenden?','Abfrage', 4 + 32);
  if x <> IDYES then
    Close
  else
    exit;

Wenn man auf Ja drückt passiert nix, drückt man auf nein dann passiert auch nix, wenn man jetzt wieder auf ja drückt dann wird die Form geschlossen!

Fazit: Man muss erst einmal auf nein Drücken und dann auf ja dmit geschlossen wird!

Aber warum ist das so?

[Daniel B]

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
  if Application.MessageBox('Wollen sie wirklich beenden?','Abfrage', 4 + 32) = IDYES then
    ShowMessage('Ja')
  else
    ShowMessage('Nein');
end;

[Die Muhkuh]

Hi Daniel,

sry geht auch nicht! Muss man wieder erst auf Nein und dann ja drücken

[Daniel B]

Nö, dann stimmt bei Dir was anderes nicht.
Mit meiner Prozedur geht das so wie es soll, klickt man auf Ja, so kommt die Message mit Ja und bei Nein dann die mit Nein.
Du hast woanders ein Problem.

[Sharky]

Hai Spieder,

das nichts passiert wenn Du auf JA drückst ist ja auch richtig. Steht schließlich so in deinem Code.

Zitat:

Zitat von Spider

Delphi-Quellcode:

 if x <> IDYES then // wenn nicht JA gedrückt schließe das Fenster;
    Close
  else
    exit; // wenn JA gedrückt breche ab.

[Die Muhkuh]

Zitat:

Zitat von Sharky

Hai Spieder,

das nichts passiert wenn Du auf JA drückst ist ja auch richtig. Steht schließlich so in deinem Code.

Zitat:

Zitat von Spider

Delphi-Quellcode:

 if x <> IDYES then // wenn nicht JA gedrückt schließe das Fenster;
    Close
  else
    exit; // wenn JA gedrückt breche ab.

Stimmt! Muss ich mal gucken

[Christian Seehase]

Moin Spider,

warum verwendest Du keine Konstanten?

Delphi-Quellcode:

, 4 + 32);

ist ja nicht besonders sprechende.
Ausserdem sollte man die mit OR verknüpfen nicht mit +

[Sharky]

Hai Spider,

wo machst Du eigentlich die Arbfrage?

Ich mache diese immer im OnCloseeQuery.