Berikut ini saya akan menjelaskan dan mempraktikan cara pembuatan suatu program delphi yang dapat menyalin objek input ke objek output. Dalam program delphi ini, obyek yang bertindak sebagai inputan adalah Edit, sedangkan obyek outputnya adalah StaticText.
Langkah-langkah yang harus dilakukan adalah :
1. Buat desain form menggunakan objek-objek yang ada pada conponent palette, seperti tampak pada gambar di bawah ini
2. Ubah properties dalam object Inspector dari objek yang digunakan. Seperti berikut :
- Label1 Caption : Input Data
- Label2 Caption : Cetak Data
- Edit1 Name : EdInput
- Button1 Name : Btcopy
Caption : &Copy
- Button2 Name : Btbatal
Caption : &Batal
- Button3 Name : Btkeluar
Caption : &Keluar
3. Untuk menambahkan kode program pada tombol batal, klik dua kali tombol tersebut sampai kode editor keluar. Kemudian tambahkan kode program untuk membersihkan tulisan seperti berikut:
procedure TForm1.BtbatalClick(Sender: TObject);
begin
EdInput.Text:='';
StCetak.Caption:='';
EdInput.SetFocus;
end;
Procedure Button Batal diatas berfungsi untuk membersihkan tulisan yang ada pada objek input dan output.
4. Tambah kode program pada form, dengan cara meklik form pada bagian yang kosong. Setelah object inspector mengaktifkan properties form, pilih event, pada bagian combo event Onactive masukkan procedure BtBatalClick.
Langkah ini bertujuan untuk membersihkan tulisan yang ada pada objek input dan output saat awal program dijalankan.
5. Tambahkan kode program untuk menyalin tulisan dengan meklik dua kali pada tombol BtCopy. Masukkan kode berikut:
procedure TForm1.BtcopyClick(Sender: TObject);
begin
StCetak.Caption:=EdInput.Text;
end;
Procedure BtCopyClick berfungsi untuk menyalin tulisan dari objek input ke Output.
6. Untuk menutup program delphi. tambahkan kode berukut di BtKeluar
procedure TForm1.BtkeluarClick(Sender: TObject);
begin
Application.Terminate;
end;
7. Simpan unit dan project dengan memilih menu File > Save All, dan delphi akan meminta anda untuk menyimpan unit dan project sekaligus. Usahakan simpan dalam satu folder agar mudah digunakan di kemudian hari nanti.
8. Untuk mencoba program di atas, coba jalankan program denga mememcet tombol F9 atau pilih menu Run > Run (F9), dan ketik di kolom Input data lalu klik BtCopy.
Selamat belajar dan semoga berhasil.
ConversionConversion EmoticonEmoticon