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

18/06/2008

1

é 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 chamo o outro formulário ele jogasse esse codigo no outro formulario em outro edit já criado, tipo assim:

fiz assim:

Edit1.Text := TEdit( FindComponent( ´ed_´ + Copy( ( Sender as TEdit ).Name, 4, 5 ) ) ).Text;


mas ai eu estou fazendo para deixar no edit do mesmo formulario mas dá esse erro:


erro Invalid class typecast.



Responder

Posts

18/06/2008

Joaoshi

Colega, vê se ajuda.

procedure TForm1.Button1Click(Sender: TObject);
var aTipo:TComponent;
begin
  aTipo:=FindComponent(´Edit2´);
  Edit1.Text := (aTipo as TEdit).Text;
end;



Responder

18/06/2008

Du_nirvana

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;



Responder

18/06/2008

Robinhocne

continuando dando esse erro:

Invalid class typecast.



Responder