[Delphi] Auto Scroll Down TListView

It's very simple.... Place on OnInsert Events.

procedure TForm1.ListView1Insert(Sender: TObject; Item: TListItem);
begin
  (Sender as TListView).Scroll(0, Item.DisplayRect(drBounds).Top - (Sender as TCustomListView).ClientHeight div 2);
end;

Thanks...

Komentar

Postingan populer dari blog ini

CryptoJS untuk Javascript dan PHP

Cara Menginstal Nginx, MariaDB, PHP V7 di Linux CentOS 7 (LEMP)

Tutorial ZIP UNZIP Centos 7