Ja / Nein Abfrage

[N30N]

Hi!


Ich hab mal ne Frage: Ich bräuchte so eine Art Messagebox, welche zwei oder mehrere Antwortmöglichkeiten hat.

In Basic hieß das glaube mal YesNoBox, aber das ist schon ewig her.


Beispiel: Wollen sie formatieren? >JA< >Nein<


Ich weiss, dass es möglich ist, nur wie ist mir (mal wieder) nciht klar.


Danke schonmal für Tipps & Tricks, der entsprechende Komponentenname könnte auch shcon reichen

[DeddyH]

if MessageBox(Handle,'Wirklich löschen?','Bestätigen',MB_YESNO) = IDYES then... Schau Dir dazu mal die MB*-Konstanten an.

[Neutral General]

Hi,

Ganz einfach:

Delphi-Quellcode:

var mr: Cardinal;
begin
  mr := MessageDlg('Message',mtConfirmation,[mbYes,mbNo],0);
  if mr = IDYES {IDNO} then
    // ...

@DeddyH: Die MessageDlg function ist da ein bisschen komfortabler finde ich.

Gruß
Neutral General

[DeddyH]

Dafür ist MessageBox IMO flexibler, aber letztendlich ist das Geschmackssache, was man im Einzelfall verwendet.

[Muetze1]

@Neutral General: Du mischt die WinAPI Konstanten (für die MessageBox) mit den VCL Konstanten für den MessageDlg(). Das Result sollte so abgeprüft werden:

Delphi-Quellcode:

var 
  mr: Integer;  // oder alternativ TModalResult
begin
  mr := MessageDlg('Message',mtConfirmation,[mbYes,mbNo],0);
  if mr = mrYes {mrNo} then
    // ...

[Neutral General]

oh

Hab die Funktion letztens nochmal benutzt und dadurch das ich im Moment wegen meinem aktuellen Projekt soviel mit non-VCL mache sind mir die VCL-Konstanten nicht mehr eingefallen

[freak4fun]

Warum dafür eine extra Variable?

Delphi-Quellcode:

if MessageDlg('Message',mtConfirmation,[mbYes,mbNo],0) = mrYes {mrNo} then
  begin
    // ...
  end
else ...

MfG
freak

[Muetze1]

Zitat von freak4fun:

Warum dafür eine extra Variable?

Zum Beispiel weil ich damit auf den Typ TModalResult hinweisen und gleichzeitig die Kompatibilität mit Integer darstellen konnte.

[alzaimar]

Noch ein Tip:

Die Gexperts von www.Gexperts.org installieren und mit CTRL+D sehr bequem die passende MessageBox/Dlg generieren. Wirklich einfach.