Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#15

AW: Delphi Funktionsrückgabe ignorieren

  Alt 9. Aug 2011, 17:13
Nein, man nehme zB if MessageDlg('Blub', mtInformation, [mbOk], 0)= mrOk then {nix};
wenn schon denn schon
Delphi-Quellcode:
rval:=MessageDlg('Blub', mtInformation, [mbOk], 0);
if rval<> mrOk then
  ShowMessage('unexpected data in dialog received:'+inttohex(integer(rval),4));
Das macht sich zumindestens im Quelltext gut, und wenn die Meldung dann kommt......

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat