ListView -> ShowScrollBar

[LokutusvB]

Hallo,

ich habe ein Problem mit der ListView. Diese Liste fülle ich direkt bei Formshow. Nach dem Füllen, um ständig die vertikale Scrollbar sehen zu können, blende ich diese mittels

Delphi-Quellcode:

ShowScrollBar(ListViewDir.Handle, SB_VERT, True);

ein. Beim dem Programmstart jedoch erscheint die ListView ohne die Scrollbar. Erst wenn ich den gleichen Vorgang durch einen Button oder eine Combobox wiederhole, wird die Scrollbar auch angezeigt, wenn die ListView nicht gefüllt ist. Kennt jemand das Problem? Wie kann ich das beheben?

[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

[LokutusvB]

Mit dieser Lösung wird die Scrollbar schon direkt nach dem Programmstart angezeigt :). Aber wieso fünktioniert das bei Formshow nicht?

Danke für den Tip.