1、业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.RunAutoRunFuncs;
begin
// RunAutoRunFunc('Biz:\COLLABORATION\TaskRemindFunc.Func');
RunAutoRunFunc('Biz:\COLLABORATION\CalendarCreatorFunc.Func');
end;
2、设置pmTools按钮中将提醒窗口的visible属性成False
3、业务模型\协同系统\任务\任务提醒库\提醒工具栏
procedure TREMINDERBAR.actRemindUpdate(Sender: TObject);
begin
// if Assigned(FOnActionUpdate) then
// FOnActionUpdate(Sender);
TAtion(Sender).Enable := False;
end;