如何动态的更改某控件的文件名?

Question

   比如说我在编辑时这个控件名字为label1,但由于程序的需要我在运行期间要将它该为asdm,怎么实现？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Name  := 'NewName';
end;procedure TForm1.Button2Click(Sender: TObject);
var
  NewLabel: TLabel;
begin
  NewLabel := TLabel(FindComponent('NewName');
  ShowMessage(NewLabel.Name);     //此时不能再用 Label1 引用
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

直接改动就可以了，只是再次引用的时候就有点麻烦了，只有象 lxpbuaa(桂枝香在故国晚秋)的方法了