Fórum Acessar comp. por uma string...(?)... #213748

13/02/2004

0

Delphi

por exemplo, tenho uma string:

var 
   s: string:
begin
   s:=´Button1´;
...


como faço p/ acessar as propriedades do componente cujo nome está na string (button1 no caso)....?

quero fazer um engine p/ colocar skin na aplicação, dai eu pego o nome de todos os TButtons e coloco numa StringList, e a partir dessa eu mudo as propriedades dos botões p/ ficarem de acordo com o skin....

naum sei se fui bem claro.....

mas se alguem souber...


::d::a::m::m::i::t::

::d::a::m::m::i::t::

Responder

Posts

13/02/2004

Beppe

Usa a função FindComponent.


Responder

Gostei + 0

13/02/2004

::d::a::m::m::i::t::

soh pra vcs terem uma idéia:
procedure TForm1.Button1Click(Sender: TObject);
var
   l: TLabel;
begin
   l:=TLabel.Create(FindComponent(´label1´));
   l.Caption:=´di´;
end;


tentei mudar o caption do label1 p/ ´di´ tendo apenas seu namo em mãos..... mas no código acima nada aconteceu......


Responder

Gostei + 0

13/02/2004

Marcelo Saviski 

procedure TForm1.Button1Click(Sender: TObject); 
var 
   l: TLabel; 
begin 
   l:= Tlabel(FindComponent(´label1´)); 
   l.Caption:=´di´; 
end;



Responder

Gostei + 0

13/02/2004

::d::a::m::m::i::t::

cara!!! tu eh um gênio...

valew mesmo... funcionou!!! woohoo!!!!


Responder

Gostei + 0

13/02/2004

Marcelo Saviski

Na verdade você já tava certo, o que fiz foi só tirar o Create :P


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar