MessageDlg

[Hansa]

Zitat von Sharky:

Du verwendest also ...

Papperlapapp verwende ich. Ich habe lediglich den Quelltext des Fragestellers zitiert. Und der mischt munter die Konstanten und braucht deshalb dann die Controls.pas. Warum ? Weil darin mrYes etc. deklariert ist. Dazu genügt ein Blick in die VCL (Dialogs.pas). Und siehe an :

Delphi-Quellcode:

  TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
    mbAll, mbNoToAll, mbYesToAll, mbHelp);

function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

mrYes usw. steht da eben NICHT drin. Der Hai hat sich hier wohl verbissen. Selbst wenn es sich nicht auswirkt, weil momentan mrYes=mbYes ist, ich würde nicht den einen möglichen Konstanten-Satz als Parameter-Option zulassen und dann den Wert mit Hilfe eines anderen Konstanten-Satzes auswerten, wie das der Fragesteller gemacht hat.

Die genannte dirty Lösung (nur wegen mrYes Controls.pas noch in Uses reinschreiben) beseitigt zwar das aufgetauchte Symptom, für mich ist es trotzdem so nicht 100% richtig.

[DeddyH]

Nicht Äpfel mit Birnen (hier: TMsgDlgButtons mit Word bzw. integer) verwechseln. Die Hilfe von Delphi 5 sagt zu MessageDlg:

Zitat:

MessageDlg zeigt in der Mitte des Bildschirms ein Dialogfeld mit einer Meldung an.

Unit

Dialogs

Kategorie

Dialogfelder und Meldungen

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;

Beschreibung

Mit MessageDlg können Sie ein Meldungsfeld anzeigen und die Antwort des Benutzers ermitteln. Der Parameter Msg enthält die Meldung. Der Parameter DlgType bestimmt den Typ des eingeblendeten Meldungsfeldes. Der Parameter AButtons legt fest, welche Schaltflächen das Meldungsfeld enthält. Buttons ist vom Typ TMsgDlgBtns. Da dieser Typ eine Menge repräsentiert, können auch mehrere Schaltflächen angezeigt werden. Der Parameter HelpCtx bestimmt den Hilfebildschirm, der angezeigt wird, wenn der Anwender die Schaltfläche Hilfe anklickt, oder F1 drückt.

MessageDlg liefert den Wert der Schaltfläche zurück, auf die der Benutzer geklickt hat. Der Parameter kann folgende Rückgabewerte enthalten:

Rückgabewerte

mrNone mrAbort mrYes
mrOk mrRetry mrNo
mrCancel mrIgnore mrAll