Delphi ile animate örneği

Delphi 7 de bulunan Animate bileşleni için küçük bir örnek

Formunuza  bir Animate bileşeni ekleyin ve CommonAVI özelliğine aviCopyFiles atayın ve sonra aşağıdaki kodu bir buttonun onclick olayına ekleyin

procedure TForm1.Button1Click(Sender: TObject);
begin
Animate1.Visible:=True;
Animate1.Active:=True;
Animate1.CommonAVI:=AviCopyFiles;
end;

end.

Kolay gelsin….

TD Software