Menambah Item ListBox pada Lazarus (Belajar Lazarus #12)

Setelah sebelumnya kita mempelajari Penggunaan komponen ListBox pada Lazarus Free Pascal. Sekarang kita akan membahas bagaimana cara Menambah Item Listbox pada Lazarus. Untuk menambah item listbox ini kita akan menggunakan 2 metode, yaitu dengan cara menambah dimana hasilnya nanti akan ditambahkan di baris paling bawah dan cara menyisipkan dimana hasilnya nanti akan diisipkan di atas item yang dipilih.

Untuk praktek silahkan buat aplikasi baru dan beri nama additemlistbox.lpi dan unitnya beri nama uadditemlistbox.pas

LANGKAH DESAIN VISUAL

Form1
Name: FAddListbox
Caption: Tambah Item Listbox

Label1
Caption: Data

Edit1
Name: EData
Text:

ListBox1
Name: LBDaftarKota

Button1
Name: BTambah
Caption: Tambah

Button2
Name: BSisip
Caption: Sisip

Sehingga tampilannya seperti gambar dibawah ini:

LANGKAH NON VISUAL / CODING

BTambah
Event OnClick
procedure TFAddListbox.BTambahClick(Sender: TObject);
begin
  LBDaftarKota.Items.Add(EData.Text);
end;

BSisip
Event OnClick
procedure TFAddListbox.BSisipClick(Sender: TObject);
begin
  LBDaftarKota.Items.Insert(LBDaftarKota.ItemIndex,EData.Text);
end;

PENJELASAN APLIKASI Menambah Item Listbox

Pada saat program dijalankan isikan nama kota pada EData, selanjutnya tekan tombol Tambah maka nama kota tersebut akan ditambahkan ke dalam Listbox. Pada tombol tambah dan sisip kita telah menambahkan event handler Onclick yang terdapat kode-kode, yang akan saya jelaskan sebagai berikut:

LBDaftarKota.Items.Add(EData.Text);
Add hanya membutuhkan 1 parameter yaitu text, dan text nanti akan ditambahkan pada baris paling bawah.

LBDaftarKota.Items.Insert(LBDaftarKota.ItemIndex,EData.Text);
Insert membutuhkan 2 parameter yaitu itemindex dan text. intemindex adalah lokasi dimana item dipilih pada listbox, dimana nanti berdasarkan lokasi ini maka text akan ditambahkan diatas lokasi tersebut.


Kode Lengkap unit uaddlisbox Menambah Item ListBox pada Lazarus (Belajar Lazarus #12) sebagai berikut:

unit uadditemlistbox;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TFAddListbox }

  TFAddListbox = class(TForm)
    BTambah: TButton;
    BSisip: TButton;
    EData: TEdit;
    Label1: TLabel;
    LBDaftarKota: TListBox;
    procedure BSisipClick(Sender: TObject);
    procedure BTambahClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FAddListbox: TFAddListbox;

implementation

{$R *.lfm}

{ TFAddListbox }

procedure TFAddListbox.BTambahClick(Sender: TObject);
begin
  LBDaftarKota.Items.Add(EData.Text);
end;

procedure TFAddListbox.BSisipClick(Sender: TObject);
begin
  LBDaftarKota.Items.Insert(LBDaftarKota.ItemIndex,EData.Text);
end;

end.


Demikian Tutorial Menambah Item ListBox pada Lazarus (Belajar Lazarus #12), sampai jumpa pada artikel selanjutnya. Happy coding :).