[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
Posting Komentar