PageControl分组框学习。

最新推荐文章于 2025-10-31 13:01:31 发布

原创最新推荐文章于 2025-10-31 13:01:31 发布 · 654 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #c

Delphi 7 专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的窗体控件编程示例，其中包括页面控件(PageControl)、滚动条(ScrollBar)、单选按钮组(RadioGroup)等组件的应用。通过实例展示了如何设置页面标题、利用滚动条实现翻页效果、单选按钮组点击事件的处理及复选框状态切换等功能。

照着书超的一些代码，留着以后看看。

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.