想在 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已经被建立了,但是怎么让他显示出来???
解决方案 »
- 求数据库高手!!!
- delphi调用c++的dll库
- 关于日志:系统非正常退出时,如何记录退出时间?
- ★★★马甲成功升星,散分,今天下班前结贴★★★
- 现在学习delphi到底学6.0还是7.0好!
- 程序员们,你们都是什么学历啊!
- 菜鸟求救:怎样让ComboBox只能显示,不能输入,还有:怎么让Edit中输入一个字,然后马上在下面显示从数据库中取出含有该字的字段的所有值
- 请问webbrowser.navigate('网址')后,如何将Webbrowser里的网页的源代码用程序取出来?
- 鼠标相对位置的问题
- 如果得到硬盘的型号?
- 功能模块按bpl编译的问题
- 关于TOleContainer 来嵌入word
l.visible := true;
动态建立的控件需要显式的指定parent
l.visible := True ; //必须指定,默认是不可视的.
l.visible := true;