怎么动态创建对象？

Question

我想点击按纽动态创建一个Label对象。并且在程序运行时。根据Query查询数据库查出来的数据相应的改变Label的颜色。具体应该怎么设置参数？能给我源代码吗？

Answer 1

Var 
label:Tlabel;
I;integer;
begin
for I:=0 to 99 do
begin
  label:=Tlabel.Create(Self);
  label.Caption:='你的条件的名';
  label.Parent:=Form1;
  Label.Tag:='条件整数';
  if label.tag='条件整数' then label.visible:=true
end;
end;

Answer 2

var
 T1:TLabel;T1:=TLabel.Create(self);
T1.Caption := '...';
T1.....

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
var
  SS:String;
  I:Integer;
begin
  But:=TButton.create(Self);
  But.Parent:=Form1;
  But.Left:=50;
  But.OnClick:=XX;  //-----------仔细体会任何字符串都可以分解
  SS:='Hai Yan';
  for  I:=1  to Length(SS) do
  begin
    ShowMessage(SS[I]);
  end;  for  I:=0  to ComponentCount-1 do
  begin
    ShowMessage(Components[I].Name);
  end;
end;procedure TForm1.XX(Sender:TObject);
begin
  ShowMEssage('Ok');
end;动态创出按钮，同时触发事件