【搞定】小问题 怎么判断功能树的弹入弹出？**

aPanther

还有，参考：
http://wiki.justep.cn/mywiki/moin.cgi/UserInterface

bsit

怎么没试过   当然试过的

bsit

procedure TfrmWord.AddControlClick(Sender: TObject);
var
  cc : TControlConfig;
begin
  cc := TControlConfig.Create('DocView1');  //用于设置Acontrol：TwinControl的显示和控制参数
  cc.CanClose := false; 能否关闭
  cc.Text := '显示名称'; 显示标题
  cc.AutoHide := 'AutoHide';
  cc.AutoHideHeight := 600;
  cc.AutoHideWidth := 600;
  cc.AllowButtons := [TDockWindowButton.wbHide, TDockWindowButton.wbAutoHide,
    TDockWindowButton.wbDock, TDockWindowButton.wbClose]; 控制按钮
  cc.AllowDockKinds := [TDockKind.dkDocking, TDockKind.dkFloating,
    TDockKind.dkAutoHide]; 显示风格
  cc.Image := img.Picture;
  DockStub.AddClient('DocView1', DocView1, cc); 将Acontrol：TwinControl按照CC指定的显示和控制方式加入DockStub
end;

没有属性能判断当前功能树是弹出来的  我不是要设置功能树的停靠属性   现在我的是AutoHide ,   我想判断是否功能树被点击  弹出来了

aPanther

是在‘\系统空间\简洁风格\界面库\窗体库\标准风格主窗体’
    procedure HideRelevancyNavBar;
    procedure ShowRelevancyNavBar;

就是找到 hide  和 show

bsit

算了  另一种方式解决   加个timer   打开FFuncNavBar时候SetFocus    要判断的时候就判断FFuncNavBar是否有焦点    OK

bsit

辛苦