Fórum Botões Yes e No #170521

if application.messagebox(´Deseja fechar este módulo?´,´Mensagem do Sistema´,mb_iconquestion+mb_yesno)=mryes then
begin
close;
end

arc,

E se precisarmos usar o MessageDlg?

usa o messagebox(0, ´pergunta´, ´titulo da caixa´, mb_yesno + mb_iconwarning);

Olá Bárbara, tudo legal ?
Bem eu faço o seguinte quanto a tradução MessageDlg :

Na Pasta Borland\Delphix\Source\Vcl, existe uma unit chamada consts.pas
dentro dela existem as strings escritas em ingles dos botões da MessageDlg, veja abaixo:
SOKButton = ´OK´;
SCancelButton = ´Cancel´;
SYesButton = ´&Yes´;
SNoButton = ´&No´;
SHelpButton = ´&Help´;
SCloseButton = ´&Close´;
SIgnoreButton = ´&Ignore´;
SRetryButton = ´&Retry´;
SAbortButton = ´Abort´;
SAllButton = ´&All´;

Atere-as de modo que fiquem assim...
SOKButton = ´OK´;
SCancelButton = ´Cancelar´;
SYesButton = ´&Sim´;
SNoButton = ´&Não´;
SHelpButton = ´&Ajuda´;
SCloseButton = ´&Fechar´;
SIgnoreButton = ´&Ignorar´;
SRetryButton = ´&Repetir´;
SAbortButton = ´Abortar´;
SAllButton = ´&Todos´;

Depois escolha salvar como consts.pas, dentro da pasta do seu projeto,

na cláusula uses do seu projeto abaixo de implementation declare, a unit consts, compile o projeto e as suas mensagem estão traduzidas...

Nessa unit estão várias outras strings que podem ser traduzidas e aplicadas como eu falei acima...

Quando precisar e eu poder ajudar, conte comigo,
Um forte abraço - Fábio Brandão