Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi [Delphi 2010] MessageBox Abfrage (https://www.delphipraxis.net/145514-%5Bdelphi-2010%5D-messagebox-abfrage.html)

DarkItachi 3. Jan 2010 13:37


[Delphi 2010] MessageBox Abfrage
 
Hallöchen!

Ich versuche seit Stunden, eine Messageboxabfrage zu machen!
Ich kriege es nicht hin... nicht mit ShowMessage und auch nicht mit MessageBox!

Ich will einfach nur eine MessageBox mit ja und nein (4).
Wenn man auf ja drückt, dann soll Application.Terminate aufgerufen werden, und wenn man auf nein drückt, dann soll nichts passieren!

Hier mein Code:
Delphi-Quellcode:
if MessageBox(0,'Wollen Sie die Anwendung wirklich schließen?', 'Programm',64 + 4)= mbyes then
Application.Terminate;
Ich finde sehr viele Beispiele dafür, aber alles das scheint bei Delphi 2010 nicht zu funktionieren!
Oder übersehe ich etwas?

Bitte um Hilfe

Thx

Matze 3. Jan 2010 13:41

Re: [Delphi 2010] MessageBox Abfrage
 
Hallo,

in meinem Tutorial beschreibe ich u.a. diese Möglichkeiten:

Delphi-Quellcode:
if MessageDlg('Änderungen speichern?', mtConfirmation, [mbyes, mbno], 0) = mrYes then
oder:

Delphi-Quellcode:
if Application.MessageBox('Änderungen speichern?', 'Hinweis', MB_ICONQUESTION or MB_YESNO) = IDYES then
Vielleicht klappt's.

Grüße, Matze

DarkItachi 3. Jan 2010 13:50

Re: [Delphi 2010] MessageBox Abfrage
 
Es funktioniert perfekt!
Das Tutorial musste ich erstmal unter meinen Lesezeichen speichern!
Danke mit dem Rückgabewert (ID_YES)
Ich wusste nicht, das man das mit id_yes macht!

Thx again

himitsu 3. Jan 2010 14:12

Re: [Delphi 2010] MessageBox Abfrage
 
Lesezeichen?
Ein Blick in die OH hätte es auch getan.

Und eine Prüfung des Rückgabewertes hätte ebenfalls gezeigt, daß der Wert von mryes nicht stimmt.
Wobei dir bei der Fehlermeldung, welche du uns auch hättest sagen sollen, gleich hätte klar werden müssen, daß mryes dort nicht paßt.
Zitat:

[DCC Fehler] Unit2.pas(27): E2008 Inkompatible Typen
PS: Die 64 und 4 sind, in diesem Fall, Bitmasken und sowas addiert man nicht, sondern verwendet Binäroperationen.

FBrust 3. Jan 2010 14:47

Re: [Delphi 2010] MessageBox Abfrage
 
Hallo,

kurz gesagt: der Grund für die Probleme wird wohl sein, dass Du "mbyes" statt "mryes" geschrieben hast.


Gruß
Frank

himitsu 3. Jan 2010 15:07

Re: [Delphi 2010] MessageBox Abfrage
 
jupp

PS: MR=Message(Box)Result und MB=Message(Box)Button


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz