Fórum FindComponent #356810
08/04/2008
0
Olá, gostaria de saber se tem uma forma mais simples de fazer o seguinte:
(form1.findComponent(´editTeste´) as TEdit).text := ´edit teste´;
(form1.findComponent(´editTeste´) as TEdit).color := clBlue;
(form1.findComponent(´editTeste´) as TEdit).Top := 10;
(form1.findComponent(´editTeste´) as TEdit).Left := 20;
etc...
ou seja, tenho que ficar procurando o componente toda vez que for setar alguma propriedade. Teria alguma forma de buscar uma única vez e setar este componente, ou criar uma variável onde eu alteraria suas propriedades e assim o componente que procurei passaria a ter esses valores?
(form1.findComponent(´editTeste´) as TEdit).text := ´edit teste´;
(form1.findComponent(´editTeste´) as TEdit).color := clBlue;
(form1.findComponent(´editTeste´) as TEdit).Top := 10;
(form1.findComponent(´editTeste´) as TEdit).Left := 20;
etc...
ou seja, tenho que ficar procurando o componente toda vez que for setar alguma propriedade. Teria alguma forma de buscar uma única vez e setar este componente, ou criar uma variável onde eu alteraria suas propriedades e assim o componente que procurei passaria a ter esses valores?
Rodrigoxcruz
Curtir tópico
+ 0
Responder
Posts
08/04/2008
Rodc
Cria um ponteiro para o componente:
var Ponteiro: TButton;
begin
Ponteiro := form1.findComponent(´editTeste´) as TEdit;
Ponteiro.text := ´edit teste´;
Ponteiro.color := clBlue;
Ponteiro.Top := 10;
Ponteiro.Left := 20;
end;
Responder
Gostei + 0
08/04/2008
Rodc
Opâ, corrigindo o código:
var Ponteiro: TEdit;
begin
Ponteiro := form1.findComponent(´editTeste´) as TEdit;
Ponteiro.text := ´edit teste´;
Ponteiro.color := clBlue;
Ponteiro.Top := 10;
Ponteiro.Left := 20;
end;
Responder
Gostei + 0
08/04/2008
Fknyght
Ve se ajuda
with (form1.findComponent(´editTeste´) as TEdit) Do
Begin
text := ´edit teste´;
color := clBlue;
Top := 10;
Left := 20;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)