Só para acrescentar...
procedure TForm1.Edit1Exit(Sender: TObject);
begin
VOLTA := TEdit(Sender);
end;
Assim serve para qualquer edit, basta direcionar para o mesmo exit.
Eduardo
Eduardo Bianchi Ribeiro escreveu:
> Roberto, porque vc acha If e Case Deselegantes ? eu não acho
> deselegante, são estruturas basicas de qualquer linguagem de
> programação, mas respondendo a sua pergunta, vc poderia usar algo +/-
> assim ...
>
>
> var
> Form1: TForm1;
> VOLTA : TEdit;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Edit1.Text := 'Conteúdo de volta é '+VOLTA.Name;
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> VOLTA := TEdit.Create(Self);
> end;
>
> procedure TForm1.Edit1Exit(Sender: TObject);
> begin
> VOLTA := Edit1;
> end;
>
> procedure TForm1.Edit2Exit(Sender: TObject);
> begin
> VOLTA := Edit2;
> end;
>
> end.
>
>
>
> --- Em delphi-br@yahoogrupos.com.br, [EMAIL PROTECTED] escreveu
> >
> >
> > 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!
> >
>
>
>
>
>
>
>
>
>
_______________________________________________________
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
