Ok;
Complementando o seu codigo então.
{ Tenha declarado então duas variaveis globais }
Var
vVolta : String;
oVolta : TEdit;
{No on exit do seus Tedits; voce coloca o seguinte. }
vVolta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text';
oVolta := Tedit(Sender);
{ no comando que voce disse que vai fazer voltar para o outro
edit anterior se coloca }
If oVolta <> nil then begin
oVolta.SetFocus;
End;
{ Não testei mas acho que rola assim }
Atenc.
Elazar;
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Roberto Wazen (RJ)
Enviada em: terça-feira, 29 de agosto de 2006 14:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Conteúdo da string (virar) componente emtempo
de execução
Elazar, obrigado pela resposta, entretanto, vc respondeu a primeira
parte da pergunta, que é carregar em VOLTA conforme o onexit de qualquer
uma das edits.
Fico ainda em dúvida, como vou retornar para a edit ( a que carregou
Volta) com um resultado que foi obtido em outro evento.
Tipo planilha, dados de uma célula (edits) vão para o cálculo e depois
voltam para aquela mesma célula.
Será que vou ter que usar ponteiros?
Roberto
- Original Message -
From: Elazar Dornelles Ceza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 2:11 PM
Subject: RES: [delphi-br] Conteúdo da string (virar) componente
emtempo de execução
Coloca no onexit o seguinte
Volta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text';
Atenc.
Elazar
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de [EMAIL PROTECTED]
Enviada em: terça-feira, 29 de agosto de 2006 11:21
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Conteúdo da string (virar) componente emtempo de
execução
Var
(pública)
VOLTA : string;
On exit das edits
(carga de VOLTA com a edit que a carregou)
exemplo para edit2:
VOLTA := 'Edit2.Text';
On exit de algum evento:
If VOLTA = 'Edit1.Text' then
Edit11.Text := 'Conteúdo de volta é Edit1.text');
If VOLTA = 'Edit2.Text' then
Edit12.Text := 'Conteúdo de volta é Edit2.text');
If VOLTA = 'Edit13.Text' then
Edit3.Text := 'Conteúdo de volta é Edit3.text');
Pergunto aos colegas, como fazer isto de forma mais elegante? isto
é sem cases e ifs
Roberto
Aqui na Oi Internet você ganha ou ganha. Além de acesso grátis com
qualidade, ganha contas ilimitadas de email com 1 giga cada uma. Ganha
espaço ilimitado para hospedar sua página pessoal. Ganha flog, suporte
grátis e muito mais. Baixe grátis o Discador em
http://www.oi.com.br/discador e comece a ganhar.
Agora, se o seu negócio é voar na internet sem pagar uma fortuna,
assine Oi Internet banda larga a partir de R$ 9,90. Clique em
http://www.oi.com.br/bandalarga e aproveite essa moleza!
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html