Delphi Multimedia

Animasi Video Sederhana
Memainkan Berkas Animasi
Animasi Kupu-Kupu Terbang

yuswaroengsoftware Blog’s Delphi Tutorial

Animasi Video Sederhana

// memainkan berkas video
procedure TForm1.BtnLoadAviClick(Sender: TObject);
begin
if OpenDialog1.Execute then
with MediaPlayer1 do
begin
FileName:=OpenDialog1.FileName;
Display:=Panel2;
Open;
Enabled:=True;
end;
end;


// memainkan berkas animasi

procedure TForm1.BtnLoadAniClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Animate1.FileName:=OpenDialog1.FileName;
Animate1.Active:=True;
end;
end;

// Animasi Kupu-Kupu Terbang

{Properti AutoScroll dari Form1 diset ke False pada Object Inspector}.
{Properti Transparent dari Image1 diset ke True pada Object Inspector}.

Priuserate
i : Integer;

Procedure Tform1.Timer1Timer(Sender: Tobject);
Begin
i := i + 1;
If Image1.Left > (Form1.Width - Image1.Width) Then Image1.Left := 0;

Case i of
1 : begin
Image1.Left := Image1.Left + 10;
Image1.Picture.LoadFromFile(’C:\GAMBAR\yus.BMP’); {Direktori disesuaikan di komputer {masing-masing}
End;
2: begin
Image1.Left := Image1.Left + 10;
Image1.Picture.LoadFromFile(’C:\GAMBAR\kupu2.BMP’);
i := 0;
End;
End;
End;