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

[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

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 mrYes oder 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 von Aviator:

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

......

[Aviator]

Zitat von sakura:

Zitat von Aviator:

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

......

Wer lesen kann ich klar im Vorteil.

[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 von Jim Carrey:

Jetzt weiß ich warum es nicht funktioniert.

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

Warum benutzt du nicht die aussagekräftigen Konstanten?

[p80286]

Zitat von Jim Carrey:

Jetzt weiß ich warum es nicht funktioniert.

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

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