如何动态添加组件,如:在程序运行时动态添加一个TLabel控件？

Question

TLabel* Label=new TLabel(this);
Label->Parent=this;
Label->???=???
-------------Label:=TLabel.Create();
Label.Parent=Self;
Label.???=???

Answer 1

var
  ProgressBar:TProgressBar;//进度条
begin
  ProgressBar:=TProgressBar.Create(Form1);
  with ProgressBar do
       Top:=.........
用Parent属性设置一下控件的父级就OK了！

Answer 2

Label:TLabel
Label:=TLabel.Create();\\构造函数
Label.Parent=Self;

Answer 3

对.楼上的就行了,先定义一个TLable的变量

Answer 4

procedure YouProcedureName();
var
  Label1: Tlabel;
begin
  Label1 := TLabel.create(Application)
  label1.parent := 你想放在哪个容器上？？
  label1.left := ??
  label1.top := ??
  label1.caption := 'test label'
end;

Answer 5

TForm=class(TForm)
.....
privete
  List:TList;
......
procedure FormCreate(Sender:TObject);
procedure FormDestroy(Sender:TObject);
.....
procedure add;
implement
procedure TForm1.FormCreate(Sender);
begin
 List:=TList.Create;
end;
procedure TForm1.Add;
 var
  Label:TLabel;
begin
  Label1 := TLabel.create(Application)
  label1.parent := 你想放在哪个容器上？？//必须是WinControl的子类
  label1.left := ??
  label1.top := ??
  label1.caption := 'test label'
  List.Add(Label);end;
procedure TForm1.Destroy;
var
 i:integer;
begin
 for i:= 0 to List.Count -1 do
   if Assigned(List.Items[i]) then
       TComponent(List.Items[i]).Free;
 list.Free;
end;
加入List用来收集你创建的对象，当你不使用的时候释放你所占用的内存！
end;