Penggunaan Edit dan LabeledEdit Lazarus Free Delphi (Belajar Lazarus #3)

Setelah sebelumnya kita belajar tentang komponen label dan button sekarang yang akan kita bahas penggunaan komponen Edit dan LabeledEdit Lazarus Free Delphi (Free Delphi maksudnya Lazarus adalah program pembuat aplikasi mirip Delphi yang Gratis). Silahkan buka kembali project pselamat dengan klik menu Project > Open Project. Jika tidak muncul jendela form atau source editor, klik menu Project > Form atau Shift+F12 lalu pilih formnya.

Di from FSelamat tambahkan lagi 1 komponen label dan 1 komponen edit yang terletak di komponen palette Standard, 1 komponen labelededit yang terletak di palette Additional.
Isi properti komponen:

Label1
Caption: Ganti caption LSelamat:

Edit1
Text:           {isi text dihapus}
Name: Egantilabel

LabeledEdit1
Caption: Ganti caption FSelamat:
Text:           {isi text dihapus}
Name: LEgantiform


Buat desain formnya seperti gambar di bawah ini:

Komponen LabeledEdit merupakan gabungan dari komponen Label dan Edit, antara komponen Edit dan LabeledEdit mempunyai fungsi yang sama, selain perbedaan label saja. Edit dan LabeledEdit adalah salah satu komponen untuk membaca data masukan.

Kita akan membuat agar ketika tombol selamat ditekan akan merubah agar Caption LSelamat sama dengan Text EGantilabel, dan Caption FSelamat sama dengan Text LEGantiform. Untuk itu kita perlu merubah pada event OnClick BSelamat ganti dengan pernyataan berikut:

procedure TFSelamat.BSelamatClick(Sender: TObject);
begin
  LSelamat.Caption:=EGantilabel.Text;
  Fselamat.Caption:=LEGantiform.Text;
end;   

Jalankan Aplikasi dengan menekan F9 selanjutnya isi sembarang kalimat di EGantilabel dan LEGantiform, lalu klik tombol Selamat. Jika program dijalankan maka hasilnya akan seperti gambar di bawah ini:

Demikian belajar Penggunaan Edit dan LabeledEdit Lazarus Free Delphi semoga bermanfaat. Untuk belajar selanjutkan akan kita bahas tentang komponen edit yang lain, yaitu tentang penggunaan Maskedit. Salam.