Membuat List Box pada android menggunakan delphi XE5 / XE 6

Membuat List Box pada android menggunakan delphi XE5 / XE 6

Listbox yang seperti apa sih yang dimaksud hihihih, nah supya gk jauh jauh ngayalnya kurang lebih kita akan buat seperti ini

 

Ok langsung aje :

1 Buat Projek baru 

2 Pilih blank lalu ok

.
3 Tambahkan Komponen TListBox pada form

4. Atur properti TListBox seperti berikut

5. Menambahkan header, Klik kanan pada area form -> Pilih Add Item ->TListBoxHeader

6. Tambahkan komponen Label pada header lalu atur text sesui keinginan

7. Menambahkan Item klik kanan -> Pilih Item Editor..
8. Setelah muncul Item Designer Pilih Add Items

9. Membuat Aksesoris untuk listbox, pilih list yang ingin di ubah aksesorisnya liat gambar berikut

10. Kita dapat membuat aksesoris seperti berikut.

11. Menambah Kotak Pencarian

Ok Selesai Sudah Hasil Akhirnya seperti ini

Oh ye kita juga bisa menambah isi listbox secara dinamis dengan kode

ListBox1.Items.Add('Text to add');

Sebagai contoh membuat isi items secara otomatis melalui kode seperti gambar berikut

Letakan Code pada form event onCreate

procedure TForm1.FormCreate(Sender: TObject);
var
  c: Char;
  i: Integer;
  Buffer: String;
  ListBoxItem : TListBoxItem;
  ListBoxGroupHeader : TListBoxGroupHeader;
begin
  ListBox1.BeginUpdate;
  for c := 'a' to 'z' do
  begin
    // Add header ('A' to 'Z') to the List
    ListBoxGroupHeader := TListBoxGroupHeader.Create(ListBox1);
    ListBoxGroupHeader.Text := UpperCase(c);
    ListBox1.AddObject(ListBoxGroupHeader);

    // Add items ('a', 'aa', 'aaa', 'b', 'bb', 'bbb', 'c', ...) to the list
    for i := 1 to 3 do
    begin
      // StringOfChar returns a string with a specified number of repeating characters.
      Buffer := StringOfChar(c, i);
      // Simply add item
      // ListBox1.Items.Add(Buffer);

      // or, you can add items by creating an instance of TListBoxItem by yourself
      ListBoxItem := TListBoxItem.Create(ListBox1);
      ListBoxItem.Text := Buffer;
      // (aNone=0, aMore=1, aDetail=2, aCheckmark=3)
      ListBoxItem.ItemData.Accessory := TListBoxItemData.TAccessory(i);
      ListBox1.AddObject(ListBoxItem);
    end;
  end;
  ListBox1.EndUpdate;
end;

Selesai semoga bermanfaat :)