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 unigui中如何监听session的开始与结束

Delphi fmx播放m4a声音文件

Delphi webbrowser有关技术

Delphi 判断字符是否是汉字

Delphi webservice 中采用 tsoapattachment 传输文件

delpni-xe5-android sdk api 层次结构

Delphi idhttp上传图给asp完美解决

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)

Delphi 让程序只运行1次

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

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