Delphi pagecontrol1 另类隐藏页的方法

本文整理自网络，侵删。

 
procedure TForm1.showsheet(x: integer);
var
  i:integer;
begin
  if x>=pagecontrol1.PageCount then exit;
  for i:=0 to pagecontrol1.PageCount-1 do
    pagecontrol1.Pages[i].TabVisible:=false;
  pagecontrol1.Pages[x].TabVisible:=true;
end;
procedure TForm1.Button3Click(Sender: TObject);//测试
begin
  showsheet(2);
end;
 

相关阅读 >>

Delphi图像处理 -- 图像卷积

Delphi定位注册表指定键位

Delphi判断系统是否64位

Delphi共享软件防破解的实用招法

Delphi代码变异加密工具

Delphi 添加或解除引号

Delphi 拷贝edit编辑框中的内容

Delphi 判断文件存在的一个api函数

Delphi中如何将鼠标放置在控件上就给予提示信息

Delphi下cpu getcpuid实现（x86和x64）

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

转载请注明出处：木庄网络博客 » Delphi pagecontrol1 另类隐藏页的方法