Pada artikel ini, saya akan memberikan trik membuat lebar kolom pada list view menyesuaikan lebarnya dengan panjang data secara runtime. Agar lebar kolom secara otomatis menyesuaikan dengan lebar data cukup mudah. Kita hanya perlu memberikan nilai width pada kolom tersebut dengan angka -2 (minus 2). Lebih detailnya ikut langkah - langkah berikut : Nama Property Value Name lv1 ViewStyle vsReport Width 505 2. Masukkan komponen TButton ke dalam form, set property di bawah ini : Nama Property Value Name btnBuatKolom Caption Buat Kolom Pada event OnClick button btnBuatKolom isikan baris kode berikut ini : procedure TfrmMain.btnBuatKolomClick(Sender: TObject); var i: Integer; lvColumn: TListColumn; begin for i := 1 to 10 do begin lvColumn := lv1.Columns.Add; lvColumn.Caption := 'Data Ke ' + IntToStr(i); end; end; 3. Masukkan s...
OOP, Tips, Trick, Free E-Book, Free Tutorial, Free Source Code, All About Delphi, Cerita Kehidupan, Technology