Mega Code Archive
Uygulamanızı değişik iconlarlar çalışsın
<![CDATA[
//örnek program.......
//bu kodları biryerlerden görmüştüm. Aklıma geldi uygulamasını yaptım.
var
Form1: TForm1;
say:integer;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
say:=1;
image1.visible:=False;
image2.visible:=False;
image3.visible:=False;
image4.visible:=False;
image5.visible:=False;
image6.visible:=False;
image7.visible:=False;
image8.visible:=False;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case say of
1:application.icon:=image1.Picture.icon;
2:application.icon:=image2.Picture.icon;
3:application.icon:=image3.Picture.icon;
4:application.icon:=image4.Picture.icon;
5:application.icon:=image5.Picture.icon;
6:application.icon:=image6.Picture.icon;
7:application.icon:=image7.Picture.icon;
8:application.icon:=image8.Picture.icon;
end;
say:=(say Mod 4)+1;
end;
]]>