【结贴】[请求]如何使使用代码运行的功能以弹出式窗口的形式显示[结束]

biglazy

使用 SYSTEMCORE.TSystemCore.FuncManager.RunFunc()函数 运行的功能 窗口会显示在主窗体中 标题会显示在最上面那一栏选项卡中
现在想让它以弹出式窗口的形式显示 请问有没有什么办法啊~

函数原型
function SYSTEMCORE.TSystemCore.FuncManager.RunFunc(AContext: TContext; const AUniqueID, AFuncURL,
AParams: string): TFunc;

zfang

用这样的方式试试
SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', 'FuncURL' , '', nil, True);

biglazy

最初由 zfang 发布
[B]用这样的方式试试
SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', 'FuncURL' , '', nil, True); [/B]

如果把最后一个参数设为true 虽然实现了弹出但是是以ShowModal模式显示 但是现在不希望以ShowModal模式显示
这样的话 不能在原来的窗口进行操作 只能显示一个弹出窗口

jiahaiminghr

SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', 'FuncURL' , '', nil, false);

biglazy

最初由 jiahaiminghr 发布
[B]SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', 'FuncURL' , '', nil, false); [/B]

如题 看第一楼的问题 如果按照这样做把最后一个参数设为false的话它就跑到上面去了 就是跟原来的窗口并排显示在主窗体 然后标题也加入到上面那个选项卡栏了～

zfang

那楼主可以这样做
建一个 窗体，用来显示
然后把调用功能的主窗体，把它显示到刚才的窗体上就可以实现您的需求了

biglazy

最初由 zfang 发布
[B]那楼主可以这样做
建一个 窗体，用来显示
然后把调用功能的主窗体，把它显示到刚才的窗体上就可以实现您的需求了 [/B]

zfang 不是太明白你的意思啊 能再细说一下吗 谢谢了～～

zfang

比如runfunc1调用功能runfunc2

procedure TMainForm.Button1Click(Sender: TObject);   
var
  lCT : TCT1;
  EditForm : TForm;
begin
  lCT := TCT1.Create(Context);
  lCT.Show;
  EditForm := RUNFUN2.TMAINFORM.Create(Self.Context);
  EditForm.Parent := lCT;
  EditForm.Show;
  ....
end;
这样的方式是否可以满足楼主的需要呢？

biglazy

好的 我试试先啊  zfang 过会给你答复～

zfang

好