怎样在窗体内动态的创建label啊,请举个例子,谢谢!

Question

应该跟动态建立窗体有区别吧!

Answer 1

var
  DLabel:TLabel;
begin
  DLabel:=TLabel.create;
  with DLabel do
    show:=true;
    left:=xx;
    top:=xx;
    ……
  end;
  ……
end.
大概就是这样的，没有调试过，顺手写的，应该没有问题的。end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  temp:Tlabel;
begin
  temp:=TLabel.Create(self);
  with temp do begin
    Parent:=Form1;//关键
    left:=xxx;
    top:=xxx;
    Caption:='中华人民共和国';
    ShowMessage('已经显示');
    free;
  end;
end;需 USES StdCtrls 单元(D7)

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var lab:Tlabel;
begin
    lab:=TLabel.Create(self);
    lab.Caption:='adfasdfasdf';
    lab.Left:=120;
    lab.Top:=160;
    lab.Height:=20;
    lab.Width:=20;
    lab.Parent:=form1;
    lab.Visible:=true;
end;

Answer 4

由 Component 继承的组件可以由 Owner 来释放，但是create(nil)的必须在程序退出的时候free