Berikut Langkah2nya:
1.Buka Delphi masing2!!
2.Tambahkan komponen Edit,Label,Scroll Bar dan Button.Atur dech menurut selere masing2!!

3.Klik pada komponent Button dan Ubah Properties Captionnya jadi Cloning.
4.Double klik Button nya.tambahkan kode berikut!!
procedure TForm1.Button1Click(Sender: TObject);
var
ms:TMemoryStream;//TMemoryStream Menyimpan data ke memory sementara
New:TForm1;//Variable Form baru
begin
ms:=TMemoryStream.Create;//TMemoryStream dibuat
try
ms.WriteComponent(Form1);//menulis komponen Form1
New:=TForm1.CreateNew(Application);//membuat aplikasi baru
ms.Position:=0;
ms.ReadComponent(New);//membaca sluruh komponen dari Form Repeat
New.Left:=New.Left+10;
Until New.Left>=610;
New.Show;
Finally
ms.Free;
end;
end;
Pencet dech F9!!
Guampang kan????selamat mencoba
klo buat animasi antrian jalan tol atau animasi perempatan atau traffic light dengan delphi gmna caranya?
BalasHapus