'Animated Application Icon'에 해당되는 글 1건

  1. 2007/08/25 How To Make An Animated Application Icon
2007/08/25 10:10

How To Make An Animated Application Icon

2007/08/25 10:10 in Borland Delphi
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;

Posted by Super Coder
Tag ,
Trackback 0 Comment 0
prev Prev 1 Next next