如何阻止用户查看pagecontrol的一些页?

eurika 2003-10-21 08:55:02
我的程序有一个pagecontrol,上面有几个页,需要根据用户的权限,有的人不能查看所有的页,怎样才能限制一些页被查看,而查看其它页有不会受到影响??
...全文
33 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
kejian 2003-11-06
  • 打赏
  • 举报
回复
登陆时判断权限.
把权限不足的页hide.

if power<2 then
begin
PageControl1.Pages[4].TabVisible:=false;
PageControl1.Pages[6].TabVisible:=false;
PageControl1.Pages[7].TabVisible:=false;
end;

if power<0 then
begin
PageControl1.Pages[3].TabVisible:=false;
PageControl1.Pages[5].TabVisible:=false;
PageControl1.Pages[8].TabVisible:=false;
end;

Alanwn 2003-10-21
  • 打赏
  • 举报
回复
PageControl1.tabvisible:=false;
PageControl1.visible:=false;
就这样将不需要显示的页都false掉。
Linux2001 2003-10-21
  • 打赏
  • 举报
回复
可以结贴了
l_xiaofeng 2003-10-21
  • 打赏
  • 举报
回复
PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex-1
eurika 2003-10-21
  • 打赏
  • 举报
回复
如果没有的话我怎么返回上一页
陈祥xx 2003-10-21
  • 打赏
  • 举报
回复
比如有两个页面,TabSheet1,TabSheet2,要访问前先判断用户的权限,如果用户只能查看
TabSheet1而不让看TabSheet2就不显示TabSheet2
具体如下:
procedure PageControl1Changing(Sender:TObject;var AllowChange:Boolean);
begin
if PageControl1.ActivePageIndex=1 then AllowChange:=false;
end;
herofy 2003-10-21
  • 打赏
  • 举报
回复
当一页要显示时检验是否有权限
eurika 2003-10-21
  • 打赏
  • 举报
回复
tanqth(青蛙),怎么判断用户要去的是哪一页呢,
jin_zai 2003-10-21
  • 打赏
  • 举报
回复
修改TabVisible属性
PageControl1.Pages[0].TabVisible:=false;
tanqth 2003-10-21
  • 打赏
  • 举报
回复
有权限的就显示页,没有的就把页隐藏了。
tanqth 2003-10-21
  • 打赏
  • 举报
回复
方法1:打开每页前要求输入密码;
方法2:进行用户登录的权限判断;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧