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 memo1删除前n行

Delphi 获取当前光标处颜色的例子

Delphi d10.x安卓app开发中简单使用原生toast

Delphi中write,read,writeln和readln的用法

Delphi 2010 域名转换ip

程序人生 : 30岁，我的程序员梦想

Delphi程序运行在64位机器连接odbc的问题

Delphi强制应用非一次性载入的注册表设置

Delphi ascii码表及键盘码表

Delphi 2009 中 string 与 char 的改变

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

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