To中电力：把功能窗体放到一个Panel上**

alang

procedure TMainForm.Button1Click(Sender: TObject);
var
  lFunc: TFunc;
begin
  lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context.Parent, '', 'Biz:\LZ\ZZJGBDSJS.Func', '', nil, False);
  lFunc.MainForm.Caption := '';
  lFunc.MainForm.Align := TAlign.alClient;
  lFunc.MainForm.BorderIcons := [];
  lFunc.MainForm.BorderStyle := TFormBorderStyle.bsNone;
  lFunc.MainForm.Parent := Panel1;
//  lFunc.MainForm.ManualDock(Panel1, nil, TAlign.alClient);
end;

xieyingliang

var
   SUrl:string;
   lFunc: TFunc;
begin
    SUrl:=TButton(Sender).HelpKeyword;
    lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context.Parent, '', SUrl, '', nil, False);
    lFunc.MainForm.Caption := '';
    lFunc.MainForm.Align := TAlign.alClient;
    lFunc.MainForm.BorderIcons := [];
    lFunc.MainForm.BorderStyle := TFormBorderStyle.bsNone;
    lFunc.MainForm.Parent := Panel6;

在panel6里能运行这个功能,但还运行了一个空页面的功能,如下图所示, 是什么原因啊??

alang

这是因为前面用FuncManager运行了功能，为功能窗体已经分配了一页，放在这里，现在又重新制定主窗体的父亲，这里就是一个空的，你可以用FuncBroker来运行功能
也可以修改主窗体的DoFuncRun方法来屏蔽掉这个页

xieyingliang

不好意思, 用FuncBroker来运行功能, 能说详细点吗?? 人笨了, 我不太明白怎么运行~~
  非常感谢!!

alang

在 资料光盘中有一个BusinessFAQ.BRP 的资源包，有现成的例子
BusinessFAQ\业务功能\代码调用指定功能业务功能