Kali Ini Saya Akan Membagi Ilmu CARA MEMBUAT REFRESH APLIKASI DI DELPHI 7 Hasil Dari Utak-Atik Delphi 7 Yang Saya Pelajari, Semoga Bermanfaat Ilmu Yang Ane Berikan Ini Kepada Kalian [ AMIN ]. Langsung Aja Kita Praktekan. Simak baik** Agar Tidak Terjadi Eror.
#LANGKAH PERTAMA#
1.-Tmabahkan Mainmenu
-Refresh Isi Di Caption
-Kemudian Klik 2 kali
-Isi Kode ini Tepat Dibawah Prosedure
var
N: Integer;
TL,TT : Integer;
begin
TL := Left;
TT := Top;
for N:=1 to 100 do begin
Left:= (TL-20) + (Random(30));
Top := (TT-20) + (Random(30));
end;
Left := TL;
Top := TT;
Form1.Hide;
Form1.Show;
end;
#LANGKAH PERTAMA#
1.-Tmabahkan Mainmenu
-Refresh Isi Di Caption
-Isi Kode ini Tepat Dibawah Prosedure
var
N: Integer;
TL,TT : Integer;
begin
TL := Left;
TT := Top;
for N:=1 to 100 do begin
Left:= (TL-20) + (Random(30));
Top := (TT-20) + (Random(30));
end;
Left := TL;
Top := TT;
Form1.Hide;
Form1.Show;
end;
-SELESAI
Note : Jika mau copas Sertakan Sumbernya
Jika Masih Binggun Bisa Lihat Video Dibawah Ini
Creat By : Fatkhur Rozak
Tidak ada komentar:
Posting Komentar