Delphi 之 TPageControl组件

本文整理自网络，侵删。

 TPageControl组件属性
ActivePage
用来显示当前页面。
示例：多页面显示

procedure TForm1.FormCreate(Sender: TObject);var  i:Integer;begin  for i:= 0 to PageControl1.PageCount-1 do  begin    ComboBox1.Items.Add(PageControl1.Pages[i].Caption);  end;  ComboBox1.ItemIndex:=0;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);begin  PageControl1.ActivePage:=PageControl1.Pages[comboBox1.itemindex];end;
ActivePageIndex
　　获取当前页面的索引，从0到PageCount-1范围之内，
示例：通过按钮实现多页面切换

procedure TForm1.Button2Click(Sender: TObject);begin  if PageControl1.ActivePageIndex<PageControl1.PageCount-1 then    PageControl1.ActivePageIndex:= PageControl1.ActivePageIndex+1;end;procedure TForm1.Button1Click(Sender: TObject);begin  if PageControl1.ActivePageIndex>0 then    PageControl1.ActivePageIndex:= PageControl1.ActivePageIndex-1;end;　　pageCount
　　确定page的页数
TpageCountrol组件的方法
　　FindNextPage
示例：查找页面相关位置。
procedure TForm1.PageControl1Change(Sender: TObject);var  prevCaption,NextCaption:ShortString;begin  with(Sender as TPageControl)do  begin    prevCaption:= FindNextPage(ActivePage,True,False).Caption;    NextCaption:=findnextpage(ActivePage,False,False).Caption;  end;  ShowMessage('下一页是：'+prevcaption+' 前一页是：'+nextcaption+'');
end;
end. 

相关阅读 >>

Delphi将图片转换成文本支持转换回去

Delphi提取网页中的所有链接、点击第n个链接

Delphi中强制idhttp使用http1.1

Delphi 之 定时器 (ttimer组件)

Delphi real控件 rm格式的播放器

Delphi 检测进程是否存在函数

Delphi10.3 构造生成输出json数据

Delphi trim 删除字符串左右两边的空格

Delphi 除法 "/" 与 div 的不同

Delphi system.messaging.pas例子

更多相关阅读请进入《Delphi》频道 >>