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!
>
--
<<<<< 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
