MessageDlg - Aktionen werden nicht ausgeführt

[Alexander Roth]

Hi,

könnt ihr mir vielleicht sagen wieso keine der meldungen ausgeführt wird? :gruebel:

Delphi-Quellcode:

case MessageDlg('wähle', mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
  mrYes: showmessage('jo');
  mrNo: showmessage('nein');
  mrCancel:showmessage('cancel') ;
end;

Noch seltsamer wird das ganze, wenn man anstadt showmessage einfach exit verwendet. Exit klappt nämlich.:gruebel:

[mirage228]

Hi,

Ich kann keine Problem mit dem Code feststellen, funktioniert alles wie es soll :gruebel:

mfG
mirage228

[Alexander Roth]

Auch nach einem Delphin neustart klappt es nicht. ich bin ratlos. :gruebel:

Auch einen eigenen Button zu kreieren und zu testen bringt nix.


Ui. Bei einem neuen Projekt klappts wie es soll.
was kann denn an einem Projekt nicht stimmen, das er es nicht richtig macht?
Liegt das vielleicht an den Projekt-Einstellungen?

[mirage228]

Zitat:

Zitat von Alexander Roth

Auch nach einem Delphin neustart klappt es nicht. ich bin ratlos. :gruebel:

Hm, in welchem Zusammenhang benutzt Du den Code? Was passiert wenn Du einfach ein neues, leeres Formular erstellst und den Code von oben dort ausführst?

mfG
mirage228

[inherited]

Zitat:

Zitat von Alexander Roth

Auch nach einem Delphin neustart klappt es nicht. ich bin ratlos. :gruebel:

Auch einen eigenen Button zu kreieren und zu testen bringt nix.


Ui. Bei einem neuen Projekt klappts wie es soll.
was kann denn an einem Projekt nicht stimmen, das er es nicht richtig macht?
Liegt das vielleicht an den Projekt-Einstellungen?

Meine Kristallkugel ist grad in reperatur, tut mir leid, wie wärs wenn du den ganzen code einfach mal postest?

[Alexander Roth]

Also meine Projekt (Primfaktoren) besteht aus 10 Units und ich benutzte DEC. Außerdem verwende ich ein paar Jedi Components.
Eigentlich sollte es ein Freeware und noch kein Open-Source sein.

Wie ich schon erwähnt habe, kann ich einen neuen Button erstellen den obrigen Code einfügen und es klappt nicht.

Habt ihr vielleicht eine Idee wie man in einem Code solch gravierende veränderungen des Compilers vornehmen kann? Oder in den Einstellungen?

Ach ja wenn man an die Stellen mit showmessage einen haltepunkt setzt wird nicht angehalten. Wenn da aber exit steht wird angehalten.


Ohh ich habe eben etwas entdeckt.
Wenn ich den gleichen Code in eine andere Unit einfüge (und nicht mehr in unti1), klappt es.

Ich probiere mal aus ob es an den benutzten Units liegen kann.

[Flocke]

Möglichkeit 1: Du hast die Konstanten mrYes, mrNo usw. irgendwo neu definiert. Spring mal über die rechte Maustaste zur Deklaration der Konstanten.

Möglichkeit 2: Du hast ShowMessage irgendwo neu definiert. Versuche dort mal das gleiche.

[Alexander Roth]

Zitat:

Möglichkeit 1: Du hast die Konstanten mrYes, mrNo usw. irgendwo neu definiert. Spring mal über die rechte Maustaste zur Deklaration der Konstanten.
Möglichkeit 2: Du hast ShowMessage irgendwo neu definiert. Versuche dort mal das gleiche.

Nein. Daran liegt es nicht.

[inherited]

ehlich gesagt bin ih jetzt etwas ratlos. Wie wäre es wenn du mal den gesamten code postest oder per pm schickst

[Alexander Roth]

Soo...

Delphi-Quellcode:

case 2 of
  1: showmessage('jo');
  2: showmessage('nein');
end;

Das klappt seltsamerweise.