社区
Delphi
帖子详情
如何阻止用户查看pagecontrol的一些页?
eurika
2003-10-21 08:55:02
我的程序有一个pagecontrol,上面有几个页,需要根据用户的权限,有的人不能查看所有的页,怎样才能限制一些页被查看,而查看其它页有不会受到影响??
...全文
36
11
打赏
收藏
如何阻止用户查看pagecontrol的一些页?
我的程序有一个pagecontrol,上面有几个页,需要根据用户的权限,有的人不能查看所有的页,怎样才能限制一些页被查看,而查看其它页有不会受到影响??
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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:进行用户登录的权限判断;
用什么办法才能使TabControl上的TabPage禁止切换?
http://topic.csdn.net/u/20080417/14/aaff9547-6f58-40de-8739-846516d8de45.html?57626747 privatevoid tabControl1_Selecting(object sender, TabControlCancelEventArgs e) { e.Canc...
Winform TabControl禁用切换的方法
由于在做上位机软件,在测试进行中需要禁止
用户
切换选项卡。搜了半天没找到对应的博客,但是在一个问答里头找到正解了 在对应控件的selecting
页
面添加监听 private void disableSelecting(object sender, TabControlCancelEventArgs e) { e.Cancel = true; } 这样就选不动其他的了 真正要用的时候就弄一个全局变量,希望选不动其他的时候就置为true就
Delphi数据库编程教程(八)
第二节浏览和导航 创建访问数据库数据的表单有两种不同的方法。第一种方法是使用Database Form Expert(数据库表单专家)。但不幸的是,数据库表单专家仅仅只可以处理数据集组件中的BDE-aware(可视化BDE)子集。第二种方法是手工放置和连接所有的数据组件。 定义
用户
界面(Defining the User Interface)
Delphi数据库编程新手指南(04)
第四章 数据浏览与导航 数据访问所需组件 目前为止,本教程提供了如何连接到Access数据库,以及显示数据库表中图形数据的方法。上一章,我们讨论了一些“高级”的数据库编程技巧(译者加:相对于初学者而言)——现在让我们回到更适合“初学者”水平的课题。 这次,你将学会如何建立一个可用于浏览数据库表中记录的窗体。 前几章例子涉及到的数据感知组件(ADOTab
ios学习--iphone开发笔记和技巧总结(原址持续更新)
iphone程序中实现截屏的一种方法 在iphone程序中实现截屏的一种方法: //导入头文件 #import QuartzCore/QuartzCore.h //将整个self.view大小的图层形式创建一张图片image UIGraphicsBeginImageContext(self.view.bounds.size); [self.view.layer renderInConte
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章