如果做一个类似与qq登录时，在右小角，图标可以来回变的效果？ application.icon随时间变化，这样，你可以加入一个animate控件等方法，如果登陆成功，则动画显示正常！得用网络知识来编写。 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 在Delphi中用好图标资源邓家宏 图标是组成应用程序的重要资源，我们的设计目标是让程序标题栏上的图标交替显示，形成动画效果。方法一：调用图标文件1.首先在窗体中添加一变量，控制图标交替显示，语句如下：varForm1: TForm1;ico:integer;//添加这一句双击窗体为其OnCreat事件添加代码，如下：ico:=12.在窗体中添加一时钟控件，设置其Interal属性为100(即两个图标交替出现的时间间隔)，为OnTimer事件添加代码，如下：if ico=1 thenbeginform1.icon.LoadFromFile('d:\amydocu\ico1.ico')//显示图标1ico:=2endelsebeginform1.icon.LoadFromFile('d:\amydocu\ico2.ico') //显示图标2ico:=1;end;3.运行窗体，即可得到动画图标。方法二：利用程序中的图标资源方法一设计出的程序在发布时，必须带上图标文件，否则无法运行。为了克服这一缺点，我们可以将图标文件做成资源文件，将其包含在执行文件中，使程序更专业化，他人想轻易改变图标也较困难。1.首先建立资源文件demo.rc，它是一个文本文件，包含如下内容：ico1 icon D:\amydocu\ico1.icoico2 icon D:\amydocu\ico2.ico2.在DOS提示符下利用Delphi提供的资源编译器brcc32.exe将其编译成demo.res，命令如下：brcc32 demo.rc3.将生成的demo.res加入程序中，可以在窗体中加入如下代码：implementation{$R *.DFM}{$R d:\amydocu\resource.res}4.使用图标资源，将方法一中时钟控件的OnTimer事件改为如下代码：if ico=1 thenbeginform1.Icon.Handle:=Loadicon(hinstance,'ico1');ico:=2;endelsebeginform1.Icon.Handle:=Loadicon(hinstance.'ico2');ico:=1;end;5.编译运行，得到和方法一同样的效果，但程序更加精炼。 证券软件适时数据发送和接收原理是怎样的? 求：TMS的TColumnComboBox用法 用什么组件能导入图片，声音，动画等到oracle数据库中？ ShellTreeView1.Path:='C:\WINDOWS\SYSTEM32'，结果选是选中了，但滚动条却在上面，请问有方法解决吗？ 小问题高分求解(在线求解马上给分) 小问题 我的收机不能发短消息 打印的问题,请帮我看一看? 我有一个dbgrid,它和query1连接显示查询后的记录,我的表中的字段是英文, 如何在QuickRep中画线??(SOS) 一个把时间插入数据库的问题？？？？？ 图片翻转的问题。。。谢谢大家帮忙了！
邓家宏
图标是组成应用程序的重要资源，我们的设计目标是让程序标题栏上的图标交替显示，形成动画效果。方法一：调用图标文件
1.首先在窗体中添加一变量，控制图标交替显示，语句如下：varForm1: TForm1;ico:integer;//添加这一句双击窗体为其OnCreat事件添加代码，如下：ico:=12.在窗体中添加一时钟控件，设置其Interal属性为100(即两个图标交替出现的时间间隔)，为OnTimer事件添加代码，如下：if ico=1 thenbeginform1.icon.LoadFromFile('d:\amydocu\ico1.ico')//显示图标1ico:=2endelsebeginform1.icon.LoadFromFile('d:\amydocu\ico2.ico') //显示图标2ico:=1;end;3.运行窗体，即可得到动画图标。方法二：利用程序中的图标资源
方法一设计出的程序在发布时，必须带上图标文件，否则无法运行。为了克服这一缺点，我们可以将图标文件做成资源文件，将其包含在执行文件中，使程序更专业化，他人想轻易改变图标也较困难。1.首先建立资源文件demo.rc，它是一个文本文件，包含如下内容：ico1 icon D:\amydocu\ico1.icoico2 icon D:\amydocu\ico2.ico2.在DOS提示符下利用Delphi提供的资源编译器brcc32.exe将其编译成demo.res，命令如下：brcc32 demo.rc3.将生成的demo.res加入程序中，可以在窗体中加入如下代码：implementation{$R *.DFM}{$R d:\amydocu\resource.res}4.使用图标资源，将方法一中时钟控件的OnTimer事件改为如下代码：if ico=1 thenbeginform1.Icon.Handle:=Loadicon(hinstance,'ico1');ico:=2;endelsebeginform1.Icon.Handle:=Loadicon(hinstance.'ico2');ico:=1;end;5.编译运行，得到和方法一同样的效果，但程序更加精炼。