MessageDlg

[Nastarowje]

Hallo,

irgendwie komme ich nicht weiter. Ich bekomme unter Delphi 7 immer die Fehlermeldung mrYes ist ein undefinierter Bezeichner.

Delphi-Quellcode:

case MessageDlg('Datei existiert noch nicht. Soll Sie angelegt werden?',mtInformation, [mbYes,mbNo], 0) of
      mrYes : Form1.Close;
      mrNo  : Form1.Close;
    end;

Die Resultate Form1.close sind nur fiktiv. Der Code fehlt noch.
Wieso bekomme ich die Fehlermeldung?

Ich setze eine eigene Unit ein, in die Unit habe ich Dialogs eingebunden. MessageDlg wird gefunden und laut Hilfe habe ich alles richtig. Auch hier im Forum steht nix anderes.

Was fehlt oder was mache ich falsch? Muss ich mrYes und mrNo irgendwo noch deklarieren?

Vielen Dank im vorraus

[dataspider]

Hi,

ich denke, Unit Dialogs in Uses aufnehmen sollte reichen.

[Edit]Vergiss es, hab nicht richtig gelesen...[/EDIT]

[EDIT2]Unit Controls brauchtst du [/EDIT]


Cu, Frank

[bitsetter]

Hallo,

binde mal die Controls mit ein.
Controls.mrYes

[Hansa]

Das muss andere Ursachen haben. Die Unit Dialogs ist schon richtig. Mache mal das Form1.Close weg. Das könnte unliebsame Nebeneffekte produzieren. // Glaskugel aus

[Nastarowje]

Hallo,

Vielen Dank, die Unit Controls hat gefehlt.

Michael

[Hansa]

Ah ja, mrYes ist in Controls.pas deklariert. Wäre es idYes gewesen, dann hätte man Windows.pas in die Uses schreiben müssen. Sofern es sich nicht um ein reines WinApi-Programm handelt empfiehlt es sich allerdings sowieso, die Uses-Liste von Delphi erstellen zu lassen. Der Fehler wäre dann nicht mal aufgetaucht.

[Muetze1]

Zitat von Hansa:

Sofern es sich nicht um ein reines WinApi-Programm handelt empfiehlt es sich allerdings sowieso, die Uses-Liste von Delphi erstellen zu lassen. Der Fehler wäre dann nicht mal aufgetaucht.

Ach ja - und wann sollte Delphi die Uses Liste erweitern in einer formlosen Unit? Wenn er die Komponente MessageDlg() in den Quelltext zieht?

[Hansa]

Mann, Mütze. Was steht denn hier ?

Zitat von Nastarowje:

Delphi-Quellcode:

case MessageDlg('Datei existiert noch nicht. Soll Sie angelegt werden?',mtInformation, [mbYes,mbNo], 0) of
      mrYes : Form1.Close;
      mrNo  : Form1.Close;
    end;

Da kann man wohl kaum von einem "formlosen" Form ausgehen, oder doch ? Deshalb auch mein Hinweis auf ein minimalistisches "WinApi"-Programm (für Disketten etc.). Sofern das nicht zutrifft und es ist ein "normales" Delphi-Programm, dann ist es wohl egal, ob eine Unit von Hand in die Uses-Liste geschrieben wird oder von Delphi eben automatisch. Ein DoppelKlick auf leere Form (oder geringe Aktivitäten im OI) genügt dazu übrigens, um die Contols.pas (= mrYes) oder die windows.pas (=idYes) ohne sonstige Arbeit in die Uses Liste gleich an die richtige Stelle reinzukriegen.

@Fragesteller : die Frage wäre übrigens auch nicht aufgetaucht, sofern statt mrYes mbYes usw. verwendet worden wäre (so wie die Parameter in deinem MessageDlg auch heißen). Auch diese Konstanten sind in Dialogs.pas enthalten und auch so wäre die Controls.pas auch überflüssig. Durch die Verwendung von mrYes wird zumindest in der betroffenen Unit überflüssigerweise auch die Unit Contols.pas in die EXE mit eingelinkt.

Edit : der Fehler kommt angeblich bei mrYes, an dem mbYes vorher stört Delphi sich wohl nicht. Warum ? Die Dialogs.pas steht in der Uses.

[Sharky]

Zitat von Hansa:

..... sofern statt mrYes mbYes usw. verwendet worden wäre (so wie die Parameter in deinem MessageDlg auch heißen). ...

Du verwendest also die mbxxx Konstanten (MessageButton) auch für die die Antworten (MessageRresult)??
Das nenne ich mal saubere Programmierung.

[bitsetter]

Zitat von Hansa:

Mann, Mütze. Was steht denn hier ?

Zitat von Nastarowje:

Delphi-Quellcode:

case MessageDlg('Datei existiert noch nicht. Soll Sie angelegt werden?',mtInformation, [mbYes,mbNo], 0) of
      mrYes : Form1.Close;
      mrNo  : Form1.Close;
    end;

Da kann man wohl kaum von einem "formlosen" Form ausgehen, oder doch ?

Zitat von Nastarowje:

Die Resultate Form1.close sind nur fiktiv. Der Code fehlt noch.