照着书超的一些代码,留着以后看看。 procedure TForm1.FormCreate(Sender: TObject); var i:integer; str:string; begin PageControl1.TabIndex:=0; scrollbar1.Min:=0; ScrollBar1.Max:=4; radiogroup1.Items.Add('甲'); RadioGroup1.Items.Add('乙'); RadioGroup1.Items.Add('丙'); RadioGroup2.Items.Add('A'); RadioGroup2.Items.Add('B'); RadioGroup2.Items.Add('C'); for i:=0 to PageControl1.PageCount-1 do begin case i of 0:str:='第一页'; 1:str:='第二页'; 2:str:='第三页'; 3:str:='第四页'; //4:str:='第五页'; end; PageControl1.Pages[i].Caption:=str; end; end; procedure TForm1.ScrollBar1Change(Sender: TObject); begin PageControl1.TabIndex:=ScrollBar1.Position; //scrollbar每移动一次就换下一页 end; procedure TForm1.RadioGroup1Click(Sender: TObject); begin RadioGroup2.ItemIndex:=3;//设置默认选择第三个 PageControl1.TabPosition:=tpTop; case RadioGroup1.ItemIndex of 0:PageControl1.Style:=tsButtons; //设置效果 1:PageControl1.Style:=tsFlatButtons; 2:PageControl1.Style:=tsTabs; end; RadioGroup2.Enabled:=False; //不可按 end; procedure TForm1.CheckBox1Click(Sender: TObject); begin pagecontrol2.MultiLine:=not PageControl2.MultiLine;//很漂亮的一个属性,个折叠未显示的表头 end; end.