首页 | 源码下载 | 编程控件 | 书籍教程 | 应用方案 | 设计素材 | 项目交易 | 开发文档 | 商业源码 | 我的帐号
登陆我的帐号
帐 号:
密 码:
我还不是会员,需要注册!

截止2004年12月16日
本站源码总量(商业源码除外)RAR压缩为 4,206,733 KB。其中免费源码为 1,124,495 KB,会员源码为 3,082,238 KB
C/C++ 129,555 KB
Delphi 1,258,381 KB
Java 120,937 KB
.Net 36,886 KB
PowerBuilder 954,525 KB
Visual Basic 923,454 KB
ASP 259,795 KB
JSP 4,987 KB
其他 94,723 KB

本站是中国频道、中资源、时代互联顶级代理:注册国际域名70元,国内域名130元,各类ASP、PHP、JSP空间8折优惠!
本站承担各类网站制作开发及方案策划,项目经验丰富,欢迎洽谈!

网站动态
关于下载速度慢的问题解答
想免费下载源码吗?
还有众多资源恭候大家免费…
道歉!
关于资源更新的说明
关于下载错误的原因!
源码资源网新版网站投入运…

当前位置:源码资源网首页 > 开发文档首页 > Delphi >对DBGrid中的列进行显示与否的设置

对DBGrid中的列进行显示与否的设置
人气:14 文字大小:     作者:

下面代码主要完成的是在DBGrid上弹出右键菜单,对DBGrid中的列进行显示与否的设置



//初始化PopupMenu中的列表
procedure InitMenuItem;
var
NewItem: TMenuItem;
i:integer;
begin
for i:=0 to DBGrid1.Columns.Count-1 do
begin
NewItem:=TMenuItem.Create nil);
NewItem.Caption:=DBGrid1.Columns.Items[i].Title.Caption;
NewItem.OnClick:=MenuOnClick; //添加弹出菜单子项的方法
NewItem.Checked:= true;
PopupMenu1.Items.Add NewItem);
end;
end;


procedure MenuOnClick Sender: TObject);
begin
TMenuItem Sender).Checked:= not TMenuItem Sender).Checked;
DBGridDisplayInf;
end;


procedure DBGridDisplayInf;
var
i:integer;
begin
for i:=0 to PopupMenu1.Items.Count-1 do
begin
if not PopupMenu1.Items[i].Checked then
DBGrid1.Columns.Items[i].Visible:= false
else
DBGrid1.Columns.Items[i].Visible:= true;
end;
end;




 

文章出处:   发表时间:2004-11-17 22:47:12

1条数据记录,分1页显示 上一页 < [1] > 下一页
相关文章  
[技术文档] · 给DBGrid添加鼠标滚动事件

相关评论  
 当前没有评论!
请登陆后再来发表评论!
当前位置:源码资源网首页 > 开发文档首页 > 对DBGrid中的列进行显示与否的设置
会员升级 | 广告服务 | 网站开发 | 联系我们 | 网站动态 | 客户反馈

CodeRes.com 保留所有权利 2004
本站所有资源仅供学习参考,版权归原作者所有,如侵犯了您的权益请与我们联系