Botões Yes e No
Tenho várias forms em um projeto, e no evento OnCloseQuery de cada form coloquei a pergunta: ´Deseja realmente fechar este módulo?´ Quero traduzir as opções de resposta (Yes e No).
Como faço para traduzir os botões que aparecem em um form quando faço uma pergunta? Ex. traduzir botão de Yes para sim e No para não?
Como faço para traduzir os botões que aparecem em um form quando faço uma pergunta? Ex. traduzir botão de Yes para sim e No para não?
Barbara.michele
Curtidas 0
Respostas
Arc
21/07/2003
if application.messagebox(´Deseja fechar este módulo?´,´Mensagem do Sistema´,mb_iconquestion+mb_yesno)=mryes then
begin
close;
end
begin
close;
end
GOSTEI 0
Ilanocf
21/07/2003
arc,
E se precisarmos usar o MessageDlg?
E se precisarmos usar o MessageDlg?
GOSTEI 0
Cinh0
21/07/2003
usa o messagebox(0, ´pergunta´, ´titulo da caixa´, mb_yesno + mb_iconwarning);
GOSTEI 0
Fgbsistemas
21/07/2003
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
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
GOSTEI 0