这样就可以了;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (not Assigned(form2)) then begin
application.CreateForm(tform2,form2);
form2.Dock(panel1,BoundsRect); //form2停靠在panel上;
form2.Show;
end;end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (not Assigned(form2)) then begin
application.CreateForm(tform2,form2);
form2.Dock(panel1,BoundsRect); //form2停靠在panel上;
form2.Show;
end;end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货