TListView: Permanenter vertikaler Scrollbar

[marabu]

Hallo Sundance,

so funktioniert es bei mir:

Delphi-Quellcode:

procedure TDemoForm.CheckScrollBar;
var
  dwStyle: DWORD;
begin
  with ListView do
  begin
    dwStyle := GetWindowLong(Handle, GWL_STYLE);
    if dwStyle and WS_HSCROLL <> 0 then
      Columns[0].Width := ClientWidth;
  end;
end;

procedure TDemoForm.TimerTimer(Sender: TObject);
begin
  with ListView.Items.Add do
  begin
    Caption := RandomStr(50);
    Selected := True;
    MakeVisible(False);
    CheckScrollBar;
  end;
end;

Gute Nacht

marabu