button abfragen auf ja/nein

[Kruppi]

Hi

ich möchte ein button drücken. beim click soll eine abfrage statt finden ob man wirklich die aktion ausführen möchte. wie realisiere ist das?

[Darlo]

Schau Dir mal

Delphi-Quellcode:

MessageDlg

an. Da gibt es auch einen Rückgabewert.
"IF MessageDlg('Text', Type, Knöpfe,0) = gedrückterKnopf then"

[Christian Seehase]

Moin Zusammen,

die "Ur"-Variante wäre dann MessageBox aus der Windows-API.

[Kruppi]

danke habs jetz

Delphi-Quellcode:

var
ButtonClick : integer;
begin
  //zeig Fenstern zum auswählen
   ButtonClick := messagedlg('Möchten Sie den aktuellen Benutzer entfernen?',mtCustom,
                              [mbYes,mbNo], 0);
  if ButtonClick = mrYes    then 
//mach irgendwas

[Sir Rufo]

Obwohl es völlig ausreichend wäre

Delphi-Quellcode:

begin
  if 
    messagedlg(
      'Möchten Sie den aktuellen Benutzer entfernen?',
      mtCustom, [mbYes,mbNo], 0 ) = mrYes
  then 
    //mach irgendwas
end;

Noch lesbarer wird es, wenn man die ABfrage selber in einer Methode auslagert

Delphi-Quellcode:

function ConfirmAction( const AConfirmMessage: string ) : Boolean;
begin
  Result := messagedlg(
      AConfirmMessage,
      mtCustom, [mbYes,mbNo], 0 ) = mrYes;
end;

const
  DeleteUserConfirmMessage = 'Möchten Sie den aktuellen Benutzer entfernen?';

begin
  if ConfirmAction( DeleteUserConfirmMessage ) 
  then
    DeleteUser();
end;

[himitsu]

Zitat:

Zitat von Kruppi (Beitrag 1329738)

danke habs jetz

Delphi-Quellcode:

var
ButtonClick : integer;
begin
  //zeig Fenstern zum auswählen
   ButtonClick := messagedlg('Möchten Sie den aktuellen Benutzer entfernen?',mtCustom,
                              [mbYes,mbNo], 0);
  if ButtonClick = mrYes    then 
//mach irgendwas

Delphi-Quellcode:

if ButtonClick = mrYes then

ist OK, aber mit

Delphi-Quellcode:

if ButtonClick = mrNo then

muß man aufpassen.

PS: Drück mal auf das [X]. :stupid:

[Der schöne Günther]

Tipp: Um sein Weltbild etwas einfacher zu halten gibt es
Hilfsfunktionen wie IsPositiveResult, IsAbortResult und weitere.

[Monday]

Mal zum lachen: Es gab Zeiten in denen kannte ich messagedlg nicht. Stattdessen hatte ich für jede Ja/Nein Frage ein eigenes Formular gestaltet :-D Das war schmerzhaft.

Hier ist noch ein guter Link: http://matthias-hielscher.de/tutoria...d-Dialoge.html