Senin, 02 Maret 2009

Cloning adalah membuat sesuatu yang samadengan aslinya.anda pasti pernah dengar kata “Cloning”kalo belum pernah denger ya baca aja dech,he…dan hal ini biasanya sich digunakan buat hal yang bersifat Teknis seperti Menggandakan Hard Disk dengan isi yang sama de el el….pada Artikel ini saya mau ngasih tau cara mengkloning Form
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

1 comments:

Posting Komentar

Katakan Sesuatu