Converte String em Componente

Question

Alguem sabe como fa�o pra atrav�s de uma variavel string  q contem o nome de um determinado componente eu acessar as propriedades de componente???...

Thomaz_prg · Answer

� o seguinte, se o componente j� estiver criado primeiro localiza-se o componente, para em seguida criar o objeto. Para isso, basta voc� declarar uma variavel com o tipo espec�fico do objeto (TEdit, TLabel) ou uma vari�vel do tipo TObject, que serve para quase todos, sen�o todos componentes. Bom seria mais ou menos assim:

Supondo que quero acessar o caption de um label que est� no form1:

procedure TForm1.button1click( Sender:TObject );
var
  obj:TObject;
begin
  obj:=FindComponent(�label1�);
  if obj=nil then showmessage(�Componente label1 n�o existe�)
  else showmessage( �Caption de label1: �+ (obj as TLabel).Caption );      
end;

No exemplo acima, eu verifico a exist�ncia do componente, se o mesmo existir, fa�o com que a vari�vel objeto que recebeu este componente, comporte-se com a forma desejada (no exemplo, como um label), e em seguida posso acessar qualquer uma das suas propriedades, como se estivesse utilizando o proprio componente.

Bon Jovi · Answer

Depende do caso. Ve se com FindComponent pode ajudar:

procedure TForm1.Teste(NomeComponente: string);
var
  Componente: TComponent;
begin
  Componente := Self.FindComponent(NomeComponente);
  if Assigned(Componente) then
  begin
    if Componente is TLabel then
      TLabel(Componente).Caption := �Teste�;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Teste(�Label1�);
end;

Bon Jovi · Answer

: ) Mais um pouco no mesmo minuto! E ainda usando Label tb no exemplo!...

Arsnet · Answer

Valeu galera...abra�os...

F�rum Converte String em Componente #245349