【结贴】TGraphicTab控件的问题**

jianth2005 · 发表于 2009-5-27 16:15:48

如何判断当前我选中的是哪一项啊？
如图：

jianth2005 · 发表于 2009-5-27 16:37:38

没人顶！！！！！！！！
自己顶一下。。。。。。

zfang · 发表于 2009-5-27 16:46:58

标准风格主窗体中，跟踪看看这里的代码
procedure TSTANDARDSTYLEMAINFORM.SetBizGroup(AGroupIndex: Integer);

yuhong · 发表于 2009-5-27 16:47:34

顶！

jianth2005 · 发表于 2009-5-27 16:57:43

没看明白哦
懂得出到底是通过什么方式来获取它的激活项的

zfang · 发表于 2009-5-27 17:00:50

你想实现什么？在哪里？

jianth2005 · 发表于 2009-5-27 17:04:23

TGraphicTab中有N个 Itims
我就想获取当前我激活的是Item 是哪个
就这样简单

zfang · 发表于 2009-5-27 17:07:15

那你看没看我上面告诉你的那个方法里的代码呢？
procedure TSTANDARDSTYLEMAINFORM.SetBizGroup(AGroupIndex: Integer);
var
  lNode: TUserBizNode;
  lURL: TBizURL;
begin
  lNode := TUserBizNode(FBizSystemList.Objects[AGroupIndex]);
  FFuncNavBar.BizGroup := lNode.ID;
  FOldActiveGroup := nil;
  lbBizSystemID.Caption := FFuncNavBar.BizGroup;
  lbBizSystem.Caption := lNode.DisplayName;
  Dialogs.ShowMessage(lbBizSystem.Caption);//我加了这么一句，简单吧？？？

  lURL := TBizURL.Create;
  try
lURL.URL := lNode.FullFileName;
TBizMessages.CommonNotify(BizSys.GlobalContext, TBizMessages.BizSystemChangeMessage, lURL);
  finally
lURL.Free;
  end;
{  if FFuncNavBar.Groups.Count > 0 then
FFuncNavBar.Groups[0].Expanded := True;}
end;

jianth2005 · 发表于 2009-5-27 17:09:55

看了啊！
但是这段代码中没有提到TGraphicTaba 啊

jianth2005 · 发表于 2009-5-27 17:22:02

TGraphicTaba 的使用，是我在自己的一个功能中使用的。

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