implementationuses Unit2, Unit3;var
a:TFrame2;
b:TFrame3;//这个是什么类呀.
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
if assigned(a) then a.Free
//请问ASSIGNED各A.FREE是什么意思,
else
if assigned(b) then b.Free;
b:=TFrame3.Create(self);
TFRAME是什么类呀,SELF是不是正常现视的意思呀?
b.Parent:=Panel1;
//PARENT和PANEL1是什么意思
b.Align:=alClient;
//ALIGN和ALCLIENT也不明白.
b.Show;
end;
a:TFrame2;
b:TFrame3;//这个是什么类呀.
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
if assigned(a) then a.Free
//请问ASSIGNED各A.FREE是什么意思,
else
if assigned(b) then b.Free;
b:=TFrame3.Create(self);
TFRAME是什么类呀,SELF是不是正常现视的意思呀?
b.Parent:=Panel1;
//PARENT和PANEL1是什么意思
b.Align:=alClient;
//ALIGN和ALCLIENT也不明白.
b.Show;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货