我是不知道写在哪里。是写在双击事件里还是哪里?比如在下面的代码中要+到哪里?
procedure TSWXX.DataGrid1DblClick(Sender: TObject);
var
fileid:string;
lFunc: TFunc;
lTmpStr: string;
lContext: TContext;
begin
Fileid:=DataGrid1.DataSource.DataSet.FieldByName('SWBH').AsString;
if Fileid ='' then
begin
dialogs.ShowMessage('没有任何内容可以显示!');
exit;
end
else
begin
lFunc:=SysTemCore.TSystemCore.FuncManager.FindRunning(lTmpStr);
lTmpStr:='Biz:\OABGZDHXT\LWDJ.Func';
if Assigned(lFunc) then
begin
SystemCore.TSystemCore.FuncManager.ActivateFunc(lFunc);
Exit;
end;
lContext := TContext.Create(Context.Owner, Context.Parent) ;
lFunc:=SystemCore.TSystemCore.FuncManager.CreateFunc(lContext, lTmpStr);
lFunc:=SystemCore.TSystemCore.FuncManager.RunFunc(Context.Parent, '', lTmpStr , Fileid, nil, False);
end;
可以帮我补充完整么!!! |