如何实现金山词霸2002启动时的效果?

happyjoe 2002-11-06 07:24:48
金山词霸启动时只显示 Splash 窗体,主窗体不出现而直接在SysTray上显示一图标。
我试了一下将 Application.ShowMainForm := False 实现不了他的效果。
...全文
34 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
ly_liuyang 2002-11-06
  • 打赏
  • 举报
回复
用控件CoolTray,设置运行时直接在SysTray上显示一图标,你有CooltrayIcon就知道,设一个Boolean值就可以了

主工程:
With TSplashForm.Create(nil) do
begin // show splash windows for init all procs
Show;
Update;
Application.Initialize;
InitInfoLabel.Caption:='Loading ...';
Update;
Application.CreateForm(TMainForm, MainForm);
Hide;
Free;
end;
end;
// run app
Application.Run;

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧