button abfragen auf ja/nein

[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;