【结贴】怎样用代码切换到工作台？

crskyp

如题。

zfang

大概思路：
业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体中，有一个FFuncContainers对象容器，它记录了所有打开的功能对象，然后有一个方法DoFuncActivate，他用来激活某个功能对象。

crskyp

不是太懂，能否具体点？

zfang

哪里不懂呢？
1、找到工作台这个功能（FFuncContainers）
2、激活工作台这个功能（DoFuncActivate）

crskyp

FFuncContainers 是私有的，没法访问
DoFuncActivate 是保护的，也没法访问

zfang

你如果在别的功能里做，可以利用平台的消息机制；如果在标准风格主窗体里做就比较简单。

crskyp

我知道消息怎么发送，消息处理方法应写在哪里，怎么写？

zfang

我在标准风格主窗体中放一个按钮，然后用下面的方法实现
procedure TSTANDARDSTYLEMAINFORM.Button2Click(Sender: TObject);
var
  lContainer: TFuncContainer;
  AFunc : TFunc;
  i : Integer;
begin
  for i := 0 to FFuncContainers.Count - 1 do
  begin
    AFunc := TFuncContainer(FFuncContainers).Func;
    if SysUtils.SameText(SysUtils.UpperCase('Biz:\COLLABORATION\CUSTOMDESKTOPFUNC.FUNC')
              ,SysUtils.UpperCase(AFunc.BizClassURL.BizURL.URL)) then
    begin
      lContainer := FindContainer(AFunc);
      if lContainer = nil then
        Exit;

      ShowContainer(lContainer);
    end;
  end;
end;

crskyp

解决了，谢谢。
结贴。