想在 Form 建立时,动态建立一个 Label, 建立成功,但是不显示。type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
l : TLabel;
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
inherited;
l := TLabel.Create(self);
l.Name := 'l';
l.left := 10;
l.top := 20;
l.caption := '333333333';
caption := l.Caption;
end;procedure TForm1.FormShow(Sender: TObject);
begin
inherited;
l.Show();
end;
从Form.Caption可以看出此Label已经被建立了,但是怎么让他显示出来???
l.visible := true;
动态建立的控件需要显式的指定parent
l.visible := True ; //必须指定,默认是不可视的.
l.visible := true;