TMsgDlgBtn in Integer?

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

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:
IDNO = System.UITypes.idNo; ID_NO = IDNO; D.h. ID_NO ist identisch zu idNo oder bin ich doof?

[p80286]

Zitat von Jim Carrey:

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

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 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