ListView -> ShowScrollBar

[soulies]

hoi,

vllt. nicht die beste lösung aber verschiebe deine aktion nach 'CustomDraw'

Delphi-Quellcode:

procedure TForm1.ListViewDirCustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
   ShowScrollBar(Sender.Handle, SB_VERT, True);
end;

cya