procedure TForm1.Button1Click(Sender: TObject);
var ob :TFrame2;
begin ob := TFrame2.Create(self);
ob.Parent:=Panel1;
ob.Align:=alClient;
ob.Show;
// ob.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var ob :TFrame3;
begin ob := TFrame3.Create(self);
ob.Parent:=Panel1;
ob.Align:=alClient;
ob.Show;end;
var ob :TFrame2;
begin ob := TFrame2.Create(self);
ob.Parent:=Panel1;
ob.Align:=alClient;
ob.Show;
// ob.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var ob :TFrame3;
begin ob := TFrame3.Create(self);
ob.Parent:=Panel1;
ob.Align:=alClient;
ob.Show;end;
↑参考