No ActiveFormChange do seu Form Principal coloque a seguinte rotina.
if Screen.ActiveForm.ClassName = 'TMessageForm' then
begin
with Screen.ActiveForm do
begin
// Percorre os componentes do form de mensagem
for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TButton then
with TButton(Components[i]) do
begin
if Caption = '&Yes' then
Caption := '&Sim'
else
if Caption = '&No' then
Caption := '&Não'
else
if ( Caption = '&Cancel' ) or
( Caption = 'Cancel' ) then
Caption := '&Cancelar';
end;
if Components[i] is TLabel then
with TLabel(Components[i]) do
begin
if Caption = 'Delete record?' then
Caption := 'Deletar registro?';
end;
end;
if Caption = 'Confirm' then
Caption := 'Confirmar'
else
if Caption = 'Warning' then
Caption := 'Atenção'
else
if Caption = 'Error' then
Caption := 'Erro'
else
if Caption = 'Information' then
Caption := 'Informação';
end;
end;
Emerson Reis
**************
Programador
Pyxis Softwarehouse
www.pyxisweb.com.br
----- Original Message -----
From: Luciano Calenzani Simões
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 07, 2008 4:44 PM
Subject: Res: [delphi-br] Como traduzir o Caption dos botões no MessageDlg
Não seria mais simples passar a usar o Application.MessageBox()?
Já vem traduzido e tem muitas opções como Caption, Botões, Resultado ....
Luciano Calenzani Simões
----- Mensagem original ----
De: Adriano Santos (Yahoo) <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 7 de Agosto de 2008 16:14:56
Assunto: Re: [delphi-br] Como traduzir o Caption dos botões no MessageDlg
Validando e re-validando o que o Rubem disse,
O que faço na minha função é dar um CreateMessageDialog associando seu
retorno a uma variável do tipo TForm. Se for estudar a função MessageDlg
original, verá que ela chama MessagedlgPosHelp e que por sua vez chama
CreateMessageDlg, ou seja, dá pra pintar em bordar. Inclusive, minha
função permite receber uma Procedure como parâmetro e executá-la.
//função
function MessageDlgCheck( ......Funcao: TProcedure): Word;
//exemplo de uso.
if Check.Checked then
Funcao;
--
Boa Leitura,
Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi. blogspot. com
www.adrianosantos. pro.br
www.devmedia. com.br
Rubem Nascimento da Rocha respondeu:
>
>
> Informe-se sobre a função CreateMessageDialog (). Ela é usada
> internamente pela função MessageDlg() . Fuçe o código da função
> MessageDlg() e vai descobrir isso, além de tb descobrir (assim
> espero!) que vc poderá usar CreateMessageDialog () para fazer seu
> próprio "MessageDlg( )" já com os botões traduzidos. A função
> CreateMessageDialog () está definida na mesma unit da função
> MessageDlg() , a unit Dialogs.
>
> Boa sorte.
> Sds.
>
> ____________ _________ _________ _
> To: [EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos .com.br>
> From: eduardo.drd@ gmail.com <mailto:eduardo. drd%40gmail. com>
> Date: Thu, 7 Aug 2008 15:00:55 -0300
> Subject: Re: [delphi-br] Como traduzir o Caption dos botões no MessageDlg
>
> isso deve ser modificado na unit que ficam as constantes.. procure no
> google
> por "Delphi mensagens traduzidas".
>
> 2008/8/7 Alison Zen <[EMAIL PROTECTED] com <mailto:galvaozen% 40gmail.com> >
>
> > Boa tarde galera, seguinte, estamos precisando traduzir o caption dos
> > botões
> > de um MessageDlg.
> >
> > Ex: de YES para SIM
> > de NO para NÃO
> >
> > E assim por diante.
> >
> > Isso eu devo alterar diretamente da Unit de Dialogs ou existe outra
> maneira
> > de fazer??.
> >
> > Abraços
> >
> > --
> > Atenciosamente
> > Alison Zen
>
> ____________ _________ _________ _________ _________ _________ _
> Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de
> relacionamentos com até 6,000 fotos!
> http://www.amigosdo messenger. com.br <http://www.amigosdo messenger.
com.br>
>
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg. com
> Version: 8.0.138 / Virus Database: 270.5.12/1596 - Release Date: 6/8/2008
16:55
>
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
