我试了,没问题,一切正常呀,显示了
procedure TForm1.FormCreate(Sender: TObject);
var P:TPanel;
begin
p:=TPanel.create(self);
P.parent:=self;
p.Align:=alTop;
p.caption:='test';
end;
procedure TForm1.FormCreate(Sender: TObject);
var P:TPanel;
begin
p:=TPanel.create(self);
P.parent:=self;
p.Align:=alTop;
p.caption:='test';
end;
在uses中加了哪個單元?為什麼我這邊不行?
var P:TPanel;
begin
p:=TPanel.create(self);
P.parent:=self;
p.Align:=alTop;
p.caption:='test';
p.visible:=True;//p.showend;//可以啊