Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin ShowMessage('You press the Yes button'); end; end;
procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin ShowMessage('You press the Yes button'); end; end;