你好:
我使用TLabel动态创建对象,但为什么不能显示出来呢?
var
what:array[1..3] of ^TObject;
lab:Tlabel;
begin
what[1]:=@Edit1;
what[2]:=@Label1;
if what[2]^ is TLabel
then
begin
showmessage('label');
lab:=TLabel.Create(Form1);
lab.Left:=10;
lab.Top:=30;
lab.Caption:='OK';
lab.Show;
end;
一切正常,但为什么在Form1上面没有显示啊?
我使用TLabel动态创建对象,但为什么不能显示出来呢?
var
what:array[1..3] of ^TObject;
lab:Tlabel;
begin
what[1]:=@Edit1;
what[2]:=@Label1;
if what[2]^ is TLabel
then
begin
showmessage('label');
lab:=TLabel.Create(Form1);
lab.Left:=10;
lab.Top:=30;
lab.Caption:='OK';
lab.Show;
end;
一切正常,但为什么在Form1上面没有显示啊?
加lab.parent := Form1;
lab.visible:=True;
lab.parent:=Form1;呵呵!