Fórum Como apresentar menssagem SIM ou NAO? #260116

uses
  Dialogs,
  Controls,
  // ...

var
  Resultado: Integer;

begin
  // ...
  Resultado := MessageDlg(´Deseja imprimir?´, mtConfirmation, [mbYes, mbNo, mbCancel], 0);
  case Resultado of 
    mrYes: // usuário clicou Sim
    mrNo: // usuário clicou Não
    mrCancel: // usuário clicou Cancelar
  end;
  // ...

Var
   Resposta : Word;
Begin
  Resp := MessageDlg(´Desejas Imprimir?´,mtConfirmation,[mbYesNoCancel],0);
  Case Resposta Of
     MrYes      : ShowMessage(´Clicou em SIM´);
     MrNo       : ShowMessage(´Clicou em NÃO´);
     MrCancel : ShowMessage(´Clicou em CANCELAR´);
     Else
          ShowMessage(´Clicou em "FECHAR JANELA"´);
  End;
End;

var resp : integer;
begin
   resp := application.messagebox(´Deseja Imprimir?´,´Confirma´,mb_iconquestion+mb_yesnocancel);
   case resp of
      idyes : showmessage(´Sim´);
      idno :  showmessage(´Nao´);
      idcancel : showmessage(´Cancela´);
   end;

var resp : integer;
begin
   resp := application.messagebox(´Deseja Imprimir?´,´Confirma´,mb_iconquestion+mb_yesnocancel);
   case resp of
      idyes : showmessage(´Sim´);
      idno :  showmessage(´Nao´);
      idcancel : showmessage(´Cancela´);
   end;

var resp : integer;
begin
   resp := application.messagebox(´Deseja Imprimir?´,´Confirma´,mb_iconquestion+mb_yesnocancel);
   case resp of
      idyes : showmessage(´Sim´);
      idno :  showmessage(´Nao´);
      idcancel : showmessage(´Cancela´);
   end;

Var
   Resposta : Word;
Begin
  Resposta := MessageDlg(´Desejas Imprimir?´,mtConfirmation,[mbYes, mbNo, mbCancel],0);
  Case Resposta Of
     MrYes      : ShowMessage(´Clicou em SIM´);
     MrNo       : ShowMessage(´Clicou em NÃO´);
     MrCancel : ShowMessage(´Clicou em CANCELAR´);
     Else
          ShowMessage(´Clicou em "FECHAR JANELA"´);
  End;