Abfragen

[Generalissimo]

Delphi-Quellcode:

if MessageDlg('Wollen Sie x ausführen?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
 DoSomething();
end;