Pegar Codigo do TEdit criado em tempo de execu��o/....

Question

� assim, eu tenho um formul�rio com varios edits, mas todos criados em tempo de execu��o, ai o que eu quero...� que eu clico nesse edit onde que tem o codigo do cliente e ai eu quero que quando eu cha...

Joaoshi · Answer

Colega, v� se ajuda.[code:1:1d06f8192d]procedure TForm1.Button1Click(Sender: TObject);var aTipo:TComponent;begin  aTipo:=FindComponent(�Edit2�);  Edit1.Text := (aTipo as TEdit).Text;end;[/code:1:1d06f8192d]...

Du_nirvana · Answer

O erro est� nesse esquema para pegar o nome do componente dentro do findcomponent, olha o esquema que eu fiz, toda vez que voc� entrar no edit ele guarda o nome, ai quando for chamar o formulario ele pega o nome do ultimo selecionado:

procedure TForm1.chamaformClick(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  Form2.Edit1.Text := TEdit( FindComponent( vSelect ) ).Text;
  Form2.ShowModal;
  Form2.Release;
end;

procedure TForm1.EdtEnter(Sender: TObject);
begin
  vSelect := (Sender as TEdit).Name;
end;

Robinhocne · Answer

continuando dando esse erro:[quote:dd414ae86c]Invalid class typecast.[/quote:dd414ae86c]...