【搞定】pagecontrl的问题**

jiajia1983 · 发表于 2007-2-12 09:31:03

不好意思啊谢谢国超软件帮忙
但是有个问题麻烦解答一下
3楼的代码 pgcMain.ActivePage := tbsHouseDetail;
解释一下
http://bbs.justep.com/forum.php?mod=viewthread&tid=13289

atiger · 发表于 2007-2-12 09:50:04

就是激活 pagecontrl 的 tbsHouseDetail 这个页

jiajia1983 · 发表于 2007-2-12 09:57:28

这2个事件都是在信息集里写的么? 我的pagecontrl 在窗体里,还是我在窗体里写方法信息集里调用如何调用?

atiger · 发表于 2007-2-12 11:36:53

呵呵，不知道楼主使用过哪些开放工具。

procedure TFRM_House.BizFormShow(Sender: TObject);
begin
INFO_HouseManage.TDOC_HouseManage(DocViewHouse.Doc).DataGrid.OnDblClick :=
DataGridDblClick;
end;

这是功能主窗体的Form的Show事件上

procedure TFRM_House.DataGridDblClick(Sender: TObject);
begin
if not dsbHouse.DataSet.IsEmpty then
pgcMain.ActivePage := tbsHouseDetail;
end;

这是写到功能窗体的数据网格（DataGrid）的OnDbClick事件上

我只能说到这里了，再问，...

jiajia1983 · 发表于 2007-2-12 13:30:00

斑竹代码我看的明白具体写在那我也明白可能我没说的明白
1.我用1个数据集窗体中我用了分页,所以pagecontrl在功能上我想控制这个pagecontrl 是不是在窗体中写代码,然后在OnDbClick调用此方法
2 在show的时候调用事件就行了
我现在的问题是在信息中如何调用窗体中的方法可能思路不对指点下

atiger · 发表于 2007-2-12 14:43:24

不要在信息中做，直接在功能上实现

jiajia1983 · 发表于 2007-2-12 15:06:31

procedure TFRM_House.DataGridDblClick(Sender: TObject);
begin
if not dsbHouse.DataSet.IsEmpty then
pgcMain.ActivePage := tbsHouseDetail;
end;

这是写到功能窗体的数据网格（DataGrid）的OnDbClick事件上

要知道在建立主窗体分页不是在信息功能窗体中就有pagecontrl 你写了它不能识别

在主窗体中有pagecontrl 但是没有办法写OnDbClick

atiger · 发表于 2007-2-12 16:02:39

pagecontrl  不是有TableSheet  麻，
在 TableSheet  页上，放一个 DataSetBroker，连接到你显示的这个数据集上，
再放一个 DataGird,，连接到 DataSetBroker 上
这样不是有DataGird，然后在DataGrid的OnDbClick事件实现
  if not dsbHouse.DataSet.IsEmpty then
pgcMain.ActivePage := tbsHouseDetail;

jiajia1983 · 发表于 2007-2-12 17:10:53

斑竹说的我都明白但是都不是我想要的这样我重新给你描述一下
我有1个数据集在1个信息下建立2个功能窗体 1个表单(datagrid)1个是表格
然后我建立主窗体选择信息我选这2个信息下的功能窗体然后选择分页

那斑竹现在的意思是不用分页自己拖1个pagecontrl是么然后进行配置是么
如果用分页的话可以么?

atiger · 发表于 2007-2-13 09:44:16

分页就是用 pagecontrl 吧,你看了吗?

我的意思只是在你需要截获的那个数据网格的页面,取消原先的DocView,根据8楼来做

		自动登录	找回密码
密码			立即注册