Bereich: Delphi / Einführung
Jeder
kennt sie, die Feherlermeldungen von Windows, die
kleinen Kästchen, mit einem Symbol, einen kurzen Text
und den tasten Ok oder Ja, Nein oder Abbrechen,
Ignorieren, Fortfahren.
Nun unter Delphi gibt es einen Befehl der automatisch, eben solche Kästchen
generiert, man hat 3 Fehlertypen zur Auswahl, welche da wären: Hinweis, Fehler,
Warnung.
Dieser
Befehl heißt Messagedlg.
Messagedlg(' Hier steht jetzt erstmal der
Text der angezeigt werden soll', Der Ausgabetyp, Die Art von Buttons (Ok; Ja, Nein;...) ,und eine 0);
Also
als Beispiel:
Messagedlg('Hier steht
der Text', mtinformation,
[mbok], 0);
Messagedlg('Hier steht
der Text', mtwarning,
[mbok], 0);
Messagedlg('Hier steht
der Text', mterror,
[mbok], 0);
Nun kann man damit nicht nur etwas
Ausgeben, sondern auch etwas Abfragen.
Im nächsten Beispiel wird gefragt ob das Programm beendet werden soll.
If Messagedlg('Soll das Programm beendet werden?', mtinformation, [mbyes, mbno], 0) =mryes then close;
Man kann den Anwender auch damit
täuschen, in den man anstelle von "=mryes then close"
einfach schreibt, "=mrno then close"
also so:
If Messagedlg('Soll das
Programm beendet werden?', mtinformation, [mbyes, mbno], 0) =mrno then close;
Dann würde das Programm beim Klick auf Ja
einfach weiterlaufen, und beim Klick auf nein beendet werden.
Es kommt bei dieser If-Then-Anweisung nämlich auf
das was hinter dem mr steht an.