Pegar Codigo do TEdit criado em tempo de execução/....
é 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:
mas ai eu estou fazendo para deixar no edit do mesmo formulario mas dá esse erro:
é 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.
Robinhocne
Curtidas 0
Respostas
Joaoshi
18/06/2008
Colega, vê se ajuda.
procedure TForm1.Button1Click(Sender: TObject); var aTipo:TComponent; begin aTipo:=FindComponent(´Edit2´); Edit1.Text := (aTipo as TEdit).Text; end;
GOSTEI 0
Du_nirvana
18/06/2008
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;
GOSTEI 0
Robinhocne
18/06/2008
continuando dando esse erro:
Invalid class typecast.
GOSTEI 0