Fórum Tradução das caixas de dialogo YES_NO no BDS 2006 #343600

//Abre uma caixa de informação
Procedure MsgInfo(Handle:THandle; Msg:String);
Begin
  MessageBox(Handle,Pchar(Msg),´Informação´,mb_IconInformation);
end;

//Abre uma caixa de mensagem de erro
Procedure MsgErro(Handle:THandle; Msg:String);
Begin
  MessageBox(Handle,Pchar(Msg),´Erro´,mb_IconError);
end;
//Abre uma caixa de pergunta com o botão Sim selecionado
Function  PerguntaS(Hnd:THandle;msg:String):Boolean;
Begin
  Result :=  MessageBox(hnd,Pchar(msg),´Confirmação´,mb_YesNo + mb_IconQuestion ) = IdYes;
end;
//Abre uma caixa de pergunta com o botão Não selecionado
Function PerguntaN(Hnd:THandle;msg:String):Boolean;
Begin
  Result := MessageBox(Hnd,Pchar(msg),´Confirmação´,mb_YesNo + Mb_IconQuestion + Mb_DefButton2) = IdYes;
end;

  MsgInfo(Handle,´Coloque aqui a sua informação´);
  MsgErro(Handle,´Coloque aqui o seu erro´);
  if PerguntaS(Handle,´Você cliclou em SIM?´) then
  MsgInfo(Handle,´SIM´)
  else
  MsgErro(Handle,´NÃO´);
  
  if not PerguntaN(Handle,´Você clicou em NÃO?´) then
  MsgInfo(Handle,´SIM´)
  else
  MsgErro(Handle,´NÃO´);