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/)
-   -   Prism Messagebox Wert verwenden, aber wie? (https://www.delphipraxis.net/49251-messagebox-wert-verwenden-aber-wie.html)

Taladan 7. Jul 2005 23:08


Messagebox Wert verwenden, aber wie?
 
Ich möchte eine Messagebox beim schließen eines Fensters einblenden, das nachfragt, ob die geänderten Werte gespeichert werden sollen. Doch nimmt Delphi die gleichung nicht an, da ein Record, Object oder Klassentyp erforderlich ist.

Delphi-Quellcode:
   if MessageBox.Show('Wollen sie die Daten speichern?', 'Daten speichern?', MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Dialogresult.Yes then
    messagebox.Show('Yes geklickt');

Luckie 7. Jul 2005 23:15

Re: Messagebox Wert verwenden, aber wie?
 
Code:
void Button1Click(object sender, System.EventArgs e)
        {
            DialogResult MBAnswer;
            MBAnswer = MessageBox.Show("Hello world.", "Test", MessageBoxButtons.YesNo, MessageBoxIcon.Question);
            switch(MBAnswer) {
                case DialogResult.Yes:
                    Application.Exit();
                    break;
                case DialogResult.No:
                    Bar(5);
                    Foo("abgebrochen");
                    break;
            }
        }

Taladan 8. Jul 2005 08:47

Re: Messagebox Wert verwenden, aber wie?
 
Delphi nimmt eine Variable vom Typ DialogResult nicht.

mirage228 8. Jul 2005 08:49

Re: Messagebox Wert verwenden, aber wie?
 
Hi,

Du musst imho den vollen Ausdruck verwenden

Delphi-Quellcode:
System.Windows.Forms.DialogResult.Yes
mfG
mirage228

barf00s 8. Jul 2005 08:53

Re: Messagebox Wert verwenden, aber wie?
 
"Application.Exit();" sollte im übrigen vermieden werden, stattdessen wie in Delphi auch "Close();" verwenden

Taladan 8. Jul 2005 09:17

Re: Messagebox Wert verwenden, aber wie?
 
so gehts
Delphi-Quellcode:
   if MessageBox.Show('Wollen sie die Daten speichern?', 'Daten speichern?', MessageBoxButtons.YesNo, MessageBoxIcon.Question) = System.Windows.Forms.dialogresult.OK then
    messagebox.Show('yes');


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:22 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