【搞定】工作台界面修改？急!!!**

dupit

如下图所示 :
   要修改"待办工作","公司年度计划编制"等功能菜单的字体大小,颜色,怎么修改?
  且双击该功能,能实现关闭功能?

jiahaiminghr

这些内容都在工作台功能中，楼主可以打开看一下。

另外在论坛中已经有介绍如何修改这些内容的帖子，楼主可以搜索一下。

dupit

给个联接

dupit

能具体说明下吗?没找到

jiahaiminghr

“工作台”功能在“：\协同系统\面板功能\工作台”

但是看图片好像你们自己修改过主界面的内容，不知道是否现在用的还是工作台这个功能。
最好问一下你同事。

atiger

？？

dupit

实现双击关闭功能,
修改代码如下:
function TSTANDARDSTYLEMAINFORM.AddTab(AContainer: TFuncContainer): Integer;
var
  Btn: TTabButton;
begin
  Btn := TTabButton.Create(Self, cnrHeader, AContainer, FrameButtonResource);
  Btn.Top := btnTabEnd.Top;
  Btn.Left := btnTabEnd.Left ;
  Btn.Height := btnTabEnd.Height;
  Btn.OnClick := TabClick;
//edit by amin_mao
//  Btn.OnDblClick := actFileCloseExecute;
  Btn.PopupMenu := pmtbcWindows;

  Result := FTabButtons.Add(Btn);
  AdjustTabsVisible;
end;

//的代码是加入的,其中actFileCloseExecute 就系统的右键关闭事件.
可运行功能,双击时,有时会提示内存错误,如下图:

atiger

楼主是否与你打开的功能的代码有关，你做这样一个例子，啥代码都没有，就一个简单的功能运行这个功能看看是否正常，如果正常，应该跟功能相关的代码有关系了

dupit

已解决

atiger

ok，结贴，

请把方法共享一下吧