dibawah ini adalah kode programnya dan lihat di procedure formnya apa yang dibutuhkan disitu contoh procedure TForm1.Timer1Timer berarti artinya itu Icon Timer
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Top:=Image1.Top -20;
if Image1.Top <= 0 then Timer1.Enabled:=false;
if Timer1.Enabled=false then Timer2.Enabled:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Show;
Button1.Hide;
Timer1.Enabled:=true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Image1.Left:=Image1.Left +20;
if Image1.Left >= 540 then Timer2.Enabled:=false;
if Timer2.Enabled=false then Timer3.Enabled:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Hide;
Label1.Hide;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
Image1.Top:=Image1.Top +20;
if Image1.Top >= 180 then Timer3.Enabled:=false;
if Timer3.Enabled=false then Timer4.Enabled:=true;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
Image1.Left:=Image1.Left -20;
if Image1.Left <= 0 then Timer4.Enabled:=false;
if Timer4.Enabled=false then Timer1.Enabled:=true;
Timer5.Enabled:=true;
Label1.Show;
end;
procedure TForm1.Timer5Timer(Sender: TObject);
begin
if Label1.Visible=true then Label1.Visible:=false
else if Label1.Visible=false then Label1.Visible:=true;
end;
end.
Title : Program delphi menggerakan gambar
Description : dibawah ini adalah kode programnya dan lihat di procedure formnya apa yang dibutuhkan disitu contoh procedure TForm1.Timer1Timer ber...