--对于已知一个控件的名字，怎样访问到该控件的属性？

Question

var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[0].Name = 'Button1' then //从数据库中获取该控件  
       //...........
  end;
end;

Answer 1

你说的穷举法，
有没有直接通过该名字来访问控件的方法。 因为名字是唯一对应的应该有这种方法吧？
比如像： TComponent('Form1.Button1').Caption:='OK';//这是我假想的一个

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  TLabel(FindComponent('Label1')).Caption := 'fdsafds';
end;

Answer 3

zx_wang(wzx) 
好!~
这正是我想要的,  thanks !多谢合作