放一个pagecontrol,在每个页上放上你的控件
pagecontrol1.style:=tsFlatButtons;//使得pagecontrol1没有边界
pagecontrol1.align:=alclient;//占据整个窗体
pagecontrol1.tabheight:=1;//使得每个tabsheet的大小和窗体的client尽量相同
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to PageControl1.PageCount-1 do
PageControl1.Pages.TabVisible:=False;
pagecontrol1.ActivePageIndex:=0;
end;
窗体的切换现在就变成了需要页面的显示设置pagecontrol1.activepageindex