【搞定】目录树右上侧的小按钮如何去掉？要实现目录树不能更改大小和隐藏**

Coordinator · 发表于 2007-3-1 16:34:04

如题我修改了系统空间的代码：
if FDefaultPosition = nil then
FFuncNavBar := TOperatorFuncNavBar.Create(TSystemCore.Operator.Context)
  else
FFuncNavBar := TOperatorFuncNavBar.Create(FDefaultPosition.Context);
  FFuncNavBar.Parent := HidePanel;
  FFuncNavBar.Width := 224;
  FFuncNavBar.View := 11;
  FFuncNavBar.Align := TAlign.alClient;
  FFuncNavBar.BorderStyle := TFormBorderStyle.bsNone;
  FFuncNavBar.SmallImages := TImageList(TCommonComponentLibrary.UserGraphics.ImageList16);
  FFuncNavBar.LargeImages := TImageList(TCommonComponentLibrary.UserGraphics.ImageList32);

  FFuncNavBar.Constraints.MinWidth := 224;
  FFuncNavBar.Constraints.MaxWidth := 224;

还要加什么吗？版本2603

jiahaiminghr · 发表于 2007-3-1 17:11:37

修改以下部分：
procedure TSTANDARDSTYLEMAINFORM.InitBarPosition;
begin
DockStub.InitControlConfigs(['FuncNavBar'], ['业务功能'], [ImgFuncTree.Picture],
180, 100, TDockKind.dkDocking,
TDockSide.alRight, False,
[TDockWindowButton.wbDock],
[TDockKind.dkDocking]);

Coordinator · 发表于 2007-3-2 11:05:26

虽然改成功了
但是每个新用户登录时候还是原来样子，是怎么回事啊

jiahaiminghr · 发表于 2007-3-2 12:16:31

是否缓存问题？

Coordinator · 发表于 2007-3-2 14:13:18

恩现在弄好了谢谢

Coordinator · 发表于 2007-3-2 14:49:09

还有个问题能不能不让目录树被拖动啊？

jiahaiminghr · 发表于 2007-3-2 14:59:53

DockStub.InitControlConfigs(['FuncNavBar'], ['业务功能'], [ImgFuncTree.Picture],
180, 100, TDockKind.dkDocking,
TDockSide.alRight, False,
[TDockWindowButton.wbDock],
[TDockKind.dkDocking]);

把TDockKind.dkDocking改成TDockKind.dkFloating试试看！

jiahaiminghr · 发表于 2007-3-3 09:41:36

抱歉，楼上的答案是错误的。
你的这个需求无法实现。

jiahaiminghr · 发表于 2007-3-8 09:17:31

楼主，还有问题吗？
没有就结贴了！

Coordinator · 发表于 2007-3-8 10:17:20

阿不时把我这么改了能固定住阿

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

【搞定】目录树右上侧的小按钮如何去掉？ 要实现目录树不能更改大小和隐藏**

【搞定】目录树右上侧的小按钮如何去掉？要实现目录树不能更改大小和隐藏**