'Animated Application Icon'에 해당되는 글 1건
- 2007/08/25 How To Make An Animated Application Icon
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;

Prev

Rss Feed