Поиск компонентов на форме

[IliaIT]

есть ещё что то подобное, например если названия меток находятся в базах.

uses
  TypInfo;


var
  stroka,vrem,str1:string;
  LAB: TComponent;
begin
  try
    stroka:='label1';
    str1:='metka';
    vrem:='подсказка';
    if length(stroka)>0 then
    begin
      lab:=form1.FindComponent(stroka);
      setpropvalue(lab,'caption',str1);
      setpropvalue(lab,'hint',vrem);
    end;
  except

  end;

end

А вот если добавить и написать вот так то и цвет метки поменяется и она выделиться

uses
  TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
  stroka,vrem,str1:string;
  LAB: TComponent;
begin
  try
    stroka:='label1';
    str1:='metka';
    vrem:='подсказка';
    if length(stroka)>0 then
    begin
      lab:=form1.FindComponent(stroka);
      setpropvalue(lab,'caption',str1);
      setpropvalue(lab,'hint',vrem);
      TLabel(lab).Font.Color:=clLime;
    end;
  except

  end;

end;