起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 165|回复: 7

【结贴】3012版本提醒窗口莫名弹出[问题]**

[复制链接]
发表于 2008-7-28 17:01:52 | 显示全部楼层 |阅读模式
我们使用的版本是3012,在使用自制的一个Office在线编辑时,经常会不是的弹出提醒窗口,但是提醒窗口里没有任何内容,有点莫名其妙。有时甚至提醒窗口无法关闭。搞得我们的客户很恼火。我们想把提醒窗口的功能去掉,不让他提醒,不知道有什么方法?谢谢!按钮点击之后,代码如下:
var
  archFrm :FtpEdit.TMain;
  gstr,funcname : String;
begin
  archFrm :=FtpEdit.TMain.Create(Context);  //创建Office控件所在窗体
  archFrm.DownLoadBtn.Visible := True
  archFrm.OpenBtn.Click;
  archFrm.SaveUrlBtn.Visible := True;
  archFrm.ShowModal;
  archFrm.Free;

end;

提醒窗口莫名弹出.jpg

78.05 KB, 下载次数: 121

回复

使用道具 举报

发表于 2008-7-28 17:07:50 | 显示全部楼层
我的也是
回复 支持 反对

使用道具 举报

发表于 2008-7-28 17:08:50 | 显示全部楼层
设置客户端的选项中的提醒,将图中的勾去掉,试试

1.gif

396.6 KB, 下载次数: 120

回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-28 17:13:46 | 显示全部楼层
可是3012这个版本没有这个设置选项啊。怎么办?急啊
我们现在系统正式上线了,不敢随意升级啊。
回复 支持 反对

使用道具 举报

发表于 2008-7-28 17:51:30 | 显示全部楼层
去掉任务提醒的方法:


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;
回复 支持 反对

使用道具 举报

发表于 2008-7-29 08:43:29 | 显示全部楼层
请楼主反馈下问题。
回复 支持 反对

使用道具 举报

发表于 2008-10-31 14:55:24 | 显示全部楼层
跟帖  备用
回复 支持 反对

使用道具 举报

发表于 2008-10-31 17:30:47 | 显示全部楼层
该贴就结了。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-25 10:40 , Processed in 0.040380 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表