Esse é o problema. Embora interessante, criar uma function a MessageDlg já traduzida ainda, acho eu, mais viável.
-- 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 Eduardo Silva dos Santos respondeu: > > Put's mil loop's a cada messageDlg. > > 2008/8/7 Emerson <[EMAIL PROTECTED] > <mailto:emerson%40pyxisweb.com.br>> > > > 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 > <mailto:delphi-br%40yahoogrupos.com.br> <delphi-br%40yahoogrupos.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] > <mailto:falecom%40adrianosantos.pro.br><falecom%40adrianosantos.pro.br> > > > > > Para: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> <delphi-br%40yahoogrupos.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%<galvaozen%25> > > 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 > <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] > > > > > > > > -- > ....................................................... > Eduardo Silva dos Santos > DRD SISTEMAS > (27) 3218-4201 > MSN: [EMAIL PROTECTED] <mailto:eduardo.drd%40gmail.com> > Site: http://www.drdsistemas.com.br/ <http://www.drdsistemas.com.br/> > ....................................................... > > [As partes desta mensagem que não continham texto foram removidas] > > > 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 > -- 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
