标准风格主窗体的创建事件里写:
tmpform:=TTXCT.Create(context);
tmpform.a:=self;
提醒窗体代码:
unit TXCT;
interface
uses
Business.System, Business.Forms;
type
TTXCT = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{private declarations}
public
a:TSTANDARDSTYLEMAINFORM;
{public declarations}
end;
implementation
procedure TTXCT.Button1Click(Sender: TObject);
begin
a.UIRunFunc(context,'','Biz:\COLLABORATION\WORKLOGFUNC.FUNC','',false,nil,false);
//SystemCore.TSYSTEMCORE.FuncManager.RunFunc(SystemCore.TSystemCore.Operator.Positions[0].Context,'','Biz:\COLLABORATION\WORKLOGFUNC.FUNC','', nil, False);
end;
主要是为了用 UIRunFunc函数调用功能。注释掉的那句应该也不会报错,但这种方式更好些。 |