是这样子写?我看得不是很懂,哦,不! 是很不懂.
lFunc := SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(SYSTEMCORE.TFuncManager.GetFuncUniqueID(context.parent, SysUtils.UpperCase('Biz:\SQWSFWGLXT_X_\JTJKDAZJM.Func'),''));
if lFunc = CurrentFunc then
begin
dialogs.ShowMessage('Test!!');
end;
这样也不行,要怎么才行,麻烦指点一下!!
lFunc := TSystemCore.FuncManager.FindRunning(TFuncManager.GetFuncUniqueID(Context.Parent, 'Biz:\SQWSFWGLXT_X_\JTJKDAZJM.Func', ''));
if lFunc = CurrentFunc then
begin
dialogs.ShowMessage('Test!!');
end;