Fórum Traduzir do Programa #165807
21/06/2003
0
Tenho um programa que usa 5 Form, ( Form1 e a tela principal onde tem btnIngles e btnPortugues ), com vários componentes ( Label, Button....etc. ) em todos Form. ......com faço quando dar Click no btnIngles e traduzir todos Caption dos componente de todos os Form para Inglês (Virse e versa) .......
---Eu sei fazer a tradução quando o Form esta ativo como exemplo abaixo...
procedure TForm1.btnInglesClick(Sender: TObject);
begin
Label1.caption:= ‘ Tradução para inglês&8217;;
Button1.caption:= &8216;Tradução para inglês &8216;;
.
.
etc......
end;
[b:cd2df94ec6]>>>Conclusão
Eu quero saber quando Click no btnIngles (traduzir) e quando for chamar os outros Form. já tarem traduzido para inglês ..........
>>>>>>[ ]s .....Jairo [/b:cd2df94ec6]
---Eu sei fazer a tradução quando o Form esta ativo como exemplo abaixo...
procedure TForm1.btnInglesClick(Sender: TObject);
begin
Label1.caption:= ‘ Tradução para inglês&8217;;
Button1.caption:= &8216;Tradução para inglês &8216;;
.
.
etc......
end;
[b:cd2df94ec6]>>>Conclusão
Eu quero saber quando Click no btnIngles (traduzir) e quando for chamar os outros Form. já tarem traduzido para inglês ..........
>>>>>>[ ]s .....Jairo [/b:cd2df94ec6]
Jairo-go
Curtir tópico
+ 0
Responder
Posts
21/06/2003
4_olho
Uma maneira é parametrizar todos os captions de seus botões e mensagens, ou seja, coloque algo assim :
Label1.Caption := Label1Capt;
mas no início da aplicação você deve definir algo como :
const
Label1CaptPrt := ´abrir´;
Label1CaptIng := ´open´;
e assim vai.
Quando clicar no seu botão de tradução, deve ter algo como :
procedure TForm1.btnInglesClick(Sender: TObject);
begin
Label1Capt := Label1CaptIng;
Esta é uma maneira, nem sei se é a melhor. Sei que pode incrementar esta solução usando dll´s, mas todas partem do mesmo princípio : parametrização.
Label1.Caption := Label1Capt;
mas no início da aplicação você deve definir algo como :
const
Label1CaptPrt := ´abrir´;
Label1CaptIng := ´open´;
e assim vai.
Quando clicar no seu botão de tradução, deve ter algo como :
procedure TForm1.btnInglesClick(Sender: TObject);
begin
Label1Capt := Label1CaptIng;
Esta é uma maneira, nem sei se é a melhor. Sei que pode incrementar esta solução usando dll´s, mas todas partem do mesmo princípio : parametrização.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)