【搞定】如何检测出当前活动的功能！**

caoyeziqq

如何检测出当前活动的功能！
比如在主界面上同时打开了4个功能的窗体，我想知道现在焦点所在的功能。
谢谢！

alang

在标准风格主窗体上有一个属性 CurrentFunc 是当前激活的功能

caoyeziqq

我就我的需求说一下吧：
我现在在主界面上用通过DockStub添加了一个panel 在pannel上有一个datagrid我现在想根据客户在主界面上焦点所在的功能来过滤datagrid上的数据。比如现在焦点所在的功能是A在datagrid中只显示1，2，3三条记录，当焦点转移到B功能下时datagrid显示的是4，5，6。。。。
现在我创建了一个参数，然后在每个功能创建的时候给参数赋值。然后想在主界面上找一个与活动功能切换有关的事件。现在就卡在这了。希望提供帮助
谢谢

alang

在标准风格主窗体上，以下函数在功能切换时候会执行
procedure TSTANDARDSTYLEMAINFORM.ShowContainer(AContainer: TFuncContainer);

caoyeziqq

我试过了，这个事件不行，得找一个功能切换后才触发的才可以。再帮忙想想办法吧。
谢谢！

caoyeziqq

首先麻烦aland根据经验分析一下我3楼的办法能否可行好吗？
我想在找到的事件里用TSQLDATASET根据参数的值来过滤。
谢谢！

alang

你增加红色的语句执行下看看呢
procedure TSTANDARDSTYLEMAINFORM.ShowContainer(AContainer: TFuncContainer);
var
  OldCurrent: TFuncContainer;
begin
  if FCurrentFuncContainer = AContainer then
    Exit;
  Dialogs.Showmessage('aa');

caoyeziqq

这个事件的时间确实是在功能创建之后。我在功能创建的时候也
Dialogs.Showmessage('bb');
然后在procedure TSTANDARDSTYLEMAINFORM.ShowContainer(AContainer: TFuncContainer);
上Dialogs.Showmessage('aa');，发现确实是先创建我的功能在执行ShowContainer。但是不知道为什么加上参数过滤的SQL代码，显示不出数据来。而我在我自己的功能的主窗体里同样的SQL代码却能显示数据。请问这和参数的值传递时机有关系吗？

alang

参数改变以后，你要刺激数据集的刷新动作才可以

caoyeziqq

cyjDB.DataSet.close;
TSqlDataSet(cyjDB.DataSet).SQL.Text:=' SELECT * FROM OA_MODEL where  MODELTYPE = &[Biz:\COMMON\MBCS.ParamGroup\MBCS.Param]';   //chenyj
cyjDB.DataSet.open;
cyjDB.DataSet.Refresh;
DataTransparentGrid1.Refresh;
我在ShowContainer里面的代码如上所示。cyjDB.DataSet.Refresh;这样数据集的刷新可以吗。