Sabtu, 30 Mei 2015

Cara Mengosongkan Tulisan Text Pada Komponen Edit Delphi 7

Kali ini Saya mau share Cara Mengosongkan Tulisan Text Pada Komponen Edit Delphi 7 dan sebelumnya juga sudah share seputar Free Squid Proxy List Server Port 80 dan 8080 Terbaru Juni 2015 ok untuk mengosongkan tulisan pada komponen edit 7 secara otomatis itu cukup mudah sekali dan berikut adalah prakteknya;


Tutorial Delphi 7

1. Pertama buat procedure baru  procedure kosongkan_text (sender: Tobject); lalu CTRL + SHIFT + C untuk memulai menggenretnya.

    procedure kosongkan_text (sender: Tobject);
private
   { Private declarations }



2. Kedua masukan kode yang ada dibawah ini bisa sahabat perhatikan kodenya pada gambar.

procedure TForm1.kosongkan_text(sender: Tobject);
var i:byte;
begin
 for i:=0 to componentcount-1 do
 begin
  if components[i] is edit then
   begin
    with components[i] as edit do
     begin
      text:='';
     end;
    end;
   end;
  end;
end;

3. Yang ketiga silahkan simpan atau coba build dulu , mungkin dari sahabat ada yang belum paham kefgunaannya tetapi suatu saat pasti sahabat akan membutuhkannya, he he
Dan hanya itu saja info kali ini seputar Cara Mengosongkan Tulisan Text Pada Komponen Edit Delphi 7 2015 semoga bermanfaat dan terima kasih.

Postingan selanjutnya; Cara Membuat Efek Sensitif Pada Minimize dan Close di Delphi 7 Terbaru 2015