How to use TListView (Cara menggunakan TListView)

Assalamu’alaikum Wr.Wb.

Bagi anda yang pemula dalam menggunakan komponen TListView mungkin agak kebingungan dalam menggunakan komponen ini, hal ini juga pernah saya alami sendiri. Dulu saya bingung untuk apa sih komponen ini? Akhirnya saya mengetahui bagaimana cara penggunaannya. Yah, terkadang kita butuh untuk menampilkan data dalam bentuk baris, icon atau sebagainya. Berikut ini cara mempergunakannya:

Tampilan TListView

ListView memiliki empat buah tipe tampilan, yaitu: vsIcon, vsSmallIcon, vsList, dan vsReport. Berikut cara untuk mengubah tampilan TListView dari kode delphi, misalnya:

ListView1.ViewStyle := vsReport;

Menambah Item Baru Pada ListView

Cara untuk menambah baris / item baru menggunakan kode program adalah sebagai berikut:

var
   ItemBaru : TListItem;
begin
   ItemBaru : ListView1.Items.Add;
   ItemBaru.Caption := 'Delphi';
   ItemBaru.SubItems.Add('Borland');
end;

Nah, untuk jelasnya, buat sebuah aplikasi baru. Tambahkan komponen TRadioGroup1 dan isikan pada items-nya: vsIcon, vsList, vsReport, dan vsSmallIcon. Tambahkan dua buah TEdit, satu buah TButton, dan sebuah TImageList. Terakhir tambahkan sebuah komponen TListView pada form, dan atur seperti tampilan berikut ini:

Tampilan Desain

Berikut adalah skrip program selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ImgList;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ImageList1: TImageList;
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  BarisBaru : TListItem;
begin
  // menambahkan baris baru
  BarisBaru := ListView1.Items.Add;
  BarisBaru.Caption := Edit1.Text;
  BarisBaru.SubItems.Add(Edit2.Text);

  // membersihkan TEdit
  Edit1.Text := '';
  Edit2.Text := '';
  Edit1.SetFocus;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: ListView1.ViewStyle := vsIcon;
    1: ListView1.ViewStyle := vsList;
    2: ListView1.ViewStyle := vsReport;
    3: ListView1.ViewStyle := vsSmallIcon;
  end;
end;

end.

Dan ini adalah tampilan hasil dari program di atas:

Demo Listview

Moga bermanfaat

Wassalamu’alaikum

Created by : 2008, Dedy Gunanto