起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 548|回复: 4

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

[复制链接]
发表于 2007-1-4 16:58:42 | 显示全部楼层 |阅读模式
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;
回复

使用道具 举报

发表于 2007-1-11 16:59:30 | 显示全部楼层
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里能运行这个功能,但还运行了一个空页面的功能,如下图所示, 是什么原因啊??

1111.gif

557.51 KB, 下载次数: 130

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-1-11 17:46:00 | 显示全部楼层
这是因为前面用FuncManager运行了功能,为功能窗体已经分配了一页,放在这里,现在又重新制定主窗体的父亲,这里就是一个空的,你可以用FuncBroker来运行功能
也可以修改主窗体的DoFuncRun方法来屏蔽掉这个页
回复 支持 反对

使用道具 举报

发表于 2007-1-12 13:56:00 | 显示全部楼层
不好意思, 用FuncBroker来运行功能, 能说详细点吗?? 人笨了, 我不太明白怎么运行~~
  非常感谢!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-1-12 14:24:41 | 显示全部楼层
在 资料光盘中有一个BusinessFAQ.BRP 的资源包,有现成的例子
BusinessFAQ\业务功能\代码调用指定功能业务功能
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-12-23 10:39 , Processed in 0.043174 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表