Search results for 'Animated Application Icon'. 1 post(s) found.
- 2007/08/25 How To Make An Animated Application Icon
Show how to create an Animated Icon in your program
var
icon1:Boolean;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if icon1=false then
begin
Application.icon:=Image1.Picture.Icon;
icon1:=true;
end
else
begin
Application.icon:=Image2.Picture.Icon;
icon1:=false;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
icon1:=true;
end;
icon1:Boolean;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if icon1=false then
begin
Application.icon:=Image1.Picture.Icon;
icon1:=true;
end
else
begin
Application.icon:=Image2.Picture.Icon;
icon1:=false;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
icon1:=true;
end;
Another posts included in "Delphi"
| How To Show The Print Dialog And Print Text Files (0) | 2007/08/25 |
| How Do I Remove The Application Icon From The Taskbar? (0) | 2007/08/25 |
| How to draw Transparent Text on bitmap (0) | 2007/09/01 |
| How To Pass The Focus To The Next/prior Control (0) | 2007/08/25 |
| How To Make Rounded Windows (0) | 2007/08/25 |
| How To Get Windows Uptime (0) | 2007/08/25 |
| How To Find Out Total And Available Memory (0) | 2007/08/25 |
| How To Change The System Time (0) | 2007/08/25 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 03:12
moneyideas
-
Subject different money making ideas
2010/01/29 12:15
moneyideas
-
Subject different money making ideas
2010/01/31 16:42
moneyideas

Prev

Rss Feed