TMsgDlgBtn in Integer?

[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

[nahpets]

Zitat von Jim Carrey:

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.

[p80286]

Zitat von 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.

Zitat von 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?

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

Gruß
K-H