TMsgDlgBtn in Integer?

[Jim Carrey]

Ich glaube ich bin gerade zu doof für diese einfache Sache.

Aber wie erhalte ich den ordinalen Wert eines in einer Variablen vom Typ TMsgDlgBtn gespeicherten Wertes?
Ich habe Ord() und Integer() schon ausprobiert aber ich bekomme immer 0 zurück.

Delphi-Quellcode:

// Aufruf mit MeinButtonTest "mbYes"

// Im Prozedurenkopf:
... MeinButtonTest: TMsgDlgBtn;

// In der Prozedur

showmessage( IntToStr(Ord(MeinButtonTest)) );

[bra]

mbYes entspricht ja auch 0 :-D

[Fritzew]

Also TMsgDlgBtn ist definiert als:

Delphi-Quellcode:

 TMsgDlgBtn = (mbYes {0}, mbNo{1}, mbOK{2}, mbCancel, mbAbort, mbRetry, mbIgnore,
    mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);

mbYes ist der erste Wert also 0.

Willst du den Namen des Enums als mbYes zurückbekommen?

[Jim Carrey]

Jetzt weiß ich warum es nicht funktioniert.

mbYes gibt 0 zurück, ich prüfe aber auf ID_YES welches 6 ist :oops:

Daher direkt eine Frage:
meine Funktion gibt einen Integer-Wert zurück und ich prüfe dann auf ID_YES ID_NO usw.
Lieber auf ID_X prüfen oder Ord(mbYes) ?

[Aviator]

Prüfe auf

Delphi-Quellcode:

mrYes

oder

Delphi-Quellcode:

mrNo

. Das sollte dann passen. Mache ich genauso.

Delphi-Quellcode:

if (MessageDlg(Format('%s%s%s', [NOTE_MASTERSTART, sLineBreak + sLineBreak,  QUESTION_STARTASMASTER]), mtWarning,
  [mbYes, mbNo], 0) = mrNo)

EDIT:

Hier mal die Liste der Konstanten:

Delphi-Quellcode:

const
  idOK       = 1;
  idCancel   = 2;
  idAbort    = 3;
  idRetry    = 4;
  idIgnore   = 5;
  idYes      = 6;
  idNo       = 7;
  idClose    = 8;
  idHelp     = 9;
  idTryAgain = 10;
  idContinue = 11;
  mrNone     = 0;
  mrOk       = idOk;
  mrCancel   = idCancel;
  mrAbort    = idAbort;
  mrRetry    = idRetry;
  mrIgnore   = idIgnore;
  mrYes      = idYes;
  mrNo       = idNo;
  mrClose    = idClose;
  mrHelp     = idHelp;
  mrTryAgain = idTryAgain;
  mrContinue = idContinue;
  mrAll      = mrContinue + 1;
  mrNoToAll  = mrAll + 1;
  mrYesToAll = mrNoToAll + 1;

EDIT 2: Oh. Sehe gerade, dass die gleich gesetzt sind. Warum das dann nicht funktionieren sollte weiß ich nicht. Zeig mal deinen Aufruf der MessageDlg() Funktion.

[sakura]

Zitat:

Zitat von Aviator (Beitrag 1350554)

EDIT 2: Oh. Sehe gerade, dass die gleich gesetzt sind. Warum das dann nicht funktionieren sollte weiß ich nicht. Zeig mal deinen Aufruf der MessageDlg() Funktion.

Weil ID_YES und idYes zwei unterschiedliche Konstanten sind :mrgreen:

...:cat:...

[Jim Carrey]

Jetzt weiß ich auch wieder warum ich damals Integer genommen habe statt TMsgDlgBtn.

Ich erzeuge meinen Dialog selber und zeige ihn dann mit IrgendeinErgebnis := ShowModal; an

Delphi-Quellcode:

IrgendeinDialog := CreateMessageDialog(sText, aMsgDlgType, aMsgDlgBtn, aMsgDlgBtnDef);
// ...
Result := ShowModal;

Und ShowModal gibt Integer zurück.

Ich habe das jetzt einfach so gemacht

Delphi-Quellcode:

// Dialog anzeigen usw
// dann...

case MeinButtonTest of
 mbYes:
  iModalRes := ID_YES;
 mbNo:
  iModalRes := ID_NO;
 mbCancel:
  iModalRes := ID_CANCEL;
else
 iModalRes := -1;

Musst du nicht verstehen, aber in meiner Prozedur stehen 2 Fälle: Dialog anzeigen oder nicht anhand einer Ini-Einstellung.
Wenn der Dialog nicht angezeigt wird, wird anhand des im Kopf übergebenen Default-Buttons entschieden.

Auf diese Art und Weise habe ich zentral an einer Stelle diese Auswertung und kann überall den Dialog aufrufen., Egal ob er angezeigt werden soll oder nicht, es wird immer richtig entschieden.

[Luckie]

Zitat:

Zitat von Jim Carrey (Beitrag 1350553)

Jetzt weiß ich warum es nicht funktioniert.

mbYes gibt 0 zurück, ich prüfe aber auf ID_YES welches 6 ist :oops:

Warum benutzt du nicht die aussagekräftigen Konstanten?

[p80286]

Zitat:

Zitat von Jim Carrey (Beitrag 1350553)

Jetzt weiß ich warum es nicht funktioniert.

mbYes gibt 0 zurück, ich prüfe aber auf ID_YES welches 6 ist :oops:

Daher direkt eine Frage:
meine Funktion gibt einen Integer-Wert zurück und ich prüfe dann auf ID_YES ID_NO usw.
Lieber auf ID_X prüfen oder Ord(mbYes) ?

Was willst Du erreichen? Das klingt wie "durch die Brust ins Auge". Wenn von einer Funktion z.B. mrYes zurück gegeben wird, solltest Du auch auf mrYes testen, und nicht auf einen numerischen Wert
der zufällig mrYes entspricht. Sollte sich dieser numerische Wert von mrYes einmal ändern, funktioniert Dein Programm dann nicht mehr korrekt.

Gruß
K-H

[Aviator]

Zitat:

Zitat von sakura (Beitrag 1350557)

Zitat:

Zitat von Aviator (Beitrag 1350554)

EDIT 2: Oh. Sehe gerade, dass die gleich gesetzt sind. Warum das dann nicht funktionieren sollte weiß ich nicht. Zeig mal deinen Aufruf der MessageDlg() Funktion.

Weil ID_YES und idYes zwei unterschiedliche Konstanten sind :mrgreen:

...:cat:...

:duck:

Wer lesen kann ich klar im Vorteil. :oops: :pale:

[Jim Carrey]

Zitat:

Warum benutzt du nicht die aussagekräftigen Konstanten?

Weil ich meinen Dialog mit CreateMessageDialog() erzeuge und mit ShowModal anzeige welches Integer zurückliefert.

[Luckie]

Und die Konstanten sind Integers.

[Jim Carrey]

Heißt das, ich kann einfach in meiner Überprüfung von ID_YES auf idYes umstellen ohne weitere Änderungen?

[bra]

Am besten auf mrYes (heisst nicht umsonst mr wie Modal Result).

[Luckie]

Zitat:

Zitat von Jim Carrey (Beitrag 1350568)

Heißt das, ich kann einfach in meiner Überprüfung von ID_YES auf idYes umstellen ohne weitere Änderungen?

Genau dazu sind Konstanten da, damit man auch morgen noch weiß, auf was man prüft. ;)

[Jim Carrey]

OK verstanden.

Aber ist intern ID_NO nicht deklariert als idNo?
Bei meinem XE3 steht:

Delphi-Quellcode:

IDNO = System.UITypes.idNo;          ID_NO = IDNO;

D.h. ID_NO ist identisch zu idNo oder bin ich doof?

[p80286]

Zitat:

Zitat von Jim Carrey (Beitrag 1350584)

Delphi-Quellcode:

IDNO = System.UITypes.idNo;          ID_NO = IDNO;

D.h. ID_NO ist identisch zu idNo oder bin ich doof?

Ja, IDNO = ID_NO = System.UITypes.idNo !

gruß
K-H

[Jim Carrey]

[QUOTE=p80286;1350645]

Zitat:

Zitat von Jim Carrey (Beitrag 1350584)

Ja, IDNO = ID_NO = System.UITypes.idNo !

Das heißt ja eigentlich, dass es vollkommen egal ist, ob man auf ID_NO oder mrNo prüft. Beides geht auf

Delphi-Quellcode:

idNo = 7;

zurück.

[nahpets]

Die mr...-Konstanten stehen für ModalResult.

Sie sind die Konstanten, die in diesem Zusammenhang abzufragen sind.

Bis mrNo stimmen die Werte mit den entsprechenden ID-Konstanten überein.

IDCLOSE aber ist z. B. = 8

mrAll ist = mrNo + 1, also auch 8.
Und spätestens ab hier entsteht dann "Begriffsverwirrung".

Delphi-Quellcode:

const
  mrNone     = 0;
  mrOk       = idOk;
  mrCancel   = idCancel;
  mrAbort    = idAbort;
  mrRetry    = idRetry;
  mrIgnore   = idIgnore;
  mrYes      = idYes;
  mrNo       = idNo;
  mrAll      = mrNo + 1;
  mrNoToAll  = mrAll + 1;
  mrYesToAll = mrNoToAll + 1;

Delphi-Quellcode:

const
  { Dialog Box Command IDs }
  IDOK = 1;          ID_OK = IDOK;
  IDCANCEL = 2;      ID_CANCEL = IDCANCEL;
  IDABORT = 3;       ID_ABORT = IDABORT;
  IDRETRY = 4;       ID_RETRY = IDRETRY;
  IDIGNORE = 5;      ID_IGNORE = IDIGNORE;
  IDYES = 6;         ID_YES = IDYES;
  IDNO = 7;          ID_NO = IDNO;
  IDCLOSE = 8;       ID_CLOSE = IDCLOSE;
  IDHELP = 9;        ID_HELP = IDHELP;
  IDTRYAGAIN = 10;
  IDCONTINUE = 11;

Wenn das dann mal nicht mehr passt, viel Vergnügen bei der Fehlersuche.

Statt

Delphi-Quellcode:

case MessageDlg('s',mtError,[mbYes,mbNo,mbAll,mbNoToAll,mbYesToAll],0) of  
  mrYes : ;
  mrNo  : ;
  mrAll : ;
  mrNoToAll : ;
  mrYesToAll : ;
end;

könntest Du dann (bei konsequenter Nutzung der ID-Konstanten) auch sowas machen:

Delphi-Quellcode:

case MessageDlg('s',mtError,[mbYes,mbNo,mbAll,mbNoToAll,mbYesToAll],0) of  
  idYes   : ;
  idNo    : ;
  IDCLOSE : ;
  IDHELP  : ;
  IDTRYAGAIN : ;
end;

Kann man sicherlich, muss man aber nicht. ;-)

[Jim Carrey]

Zitat:

(bei konsequenter Nutzung der ID-Konstanten)

Genau so handhabe ich es ;)

[nahpets]

Zitat:

Zitat von Jim Carrey (Beitrag 1350670)

Zitat:

(bei konsequenter Nutzung der ID-Konstanten)

Genau so handhabe ich es ;)

Und der Konflikt in den Beispielenist Dir aufgefallen?

Wenn Du abfragst, ob im Dialog mbNoToAll gedrückt wurde, dann erfolgt ein Vergleich mit IDHelp, bei mbAll fragst Du auf IDClose ab und bei mbYesToAll auf IDTrayAgain.

Klasse, für jeden, der Deine Programm pflegen muss ein wahrer Genuss ;-)

[Jim Carrey]

Mein Programm wird niemals von jemanden anders angefasst als von mir von daher kein Problem.
Das mit NoToAll habe ich anders geregelt. Da greife ich gar nicht auf die offizielle Deklaration zu.

[Luckie]

Und in zwei Monaten weißt du nicht mehr was du gemacht hast und findest dich in deinem eigenem Code nicht mehr zurecht.

[Jim Carrey]

Ich habe den Code schon oft lange nicht mehr angeguckt und mich immer wieder zurückgefunden.
Ich kommentiere zwar nicht aber ich schreibe Code immer so, dass er beim lesen verständlich wird. Deswegen ist mein Code auch oft etwas länger und idiotischer.
Er funktioniert, er ist schnell, er tut was er soll. Was will ich mehr?

[p80286]

Zitat:

Zitat von Jim Carrey (Beitrag 1350677)

Mein Programm wird niemals von jemanden anders angefasst als von mir von daher kein Problem.
Das mit NoToAll habe ich anders geregelt. Da greife ich gar nicht auf die offizielle Deklaration zu.

Zitat:

Zitat von Jim Carrey (Beitrag 1350683)

Ich habe den Code schon oft lange nicht mehr angeguckt und mich immer wieder zurückgefunden.
Ich kommentiere zwar nicht aber ich schreibe Code immer so, dass er beim lesen verständlich wird. Deswegen ist mein Code auch oft etwas länger und idiotischer.
Er funktioniert, er ist schnell, er tut was er soll. Was will ich mehr?

Na dann hoffen wir mal, daß Du zu den wenigen gehörst, die auf diese individuelle Art gut zurecht kommen
.

Gruß
K-H

[bra]

Zitat:

Zitat von Jim Carrey (Beitrag 1350683)

Ich habe den Code schon oft lange nicht mehr angeguckt und mich immer wieder zurückgefunden.
Ich kommentiere zwar nicht aber ich schreibe Code immer so, dass er beim lesen verständlich wird. Deswegen ist mein Code auch oft etwas länger und idiotischer.
Er funktioniert, er ist schnell, er tut was er soll. Was will ich mehr?

Warum einfach, wenn es auch umständlicher geht...

So habe ich früher auch gedacht und bin dann irgendwann verzweifelt, weil ich meinen eigenen Code von vor x Jahren nicht mehr verstanden habe. Aber jeder wie er mag... :stupid: