SetScrollInfo funktioniert bei mir nicht...

[marabu]

Hallo Benjamin,

warum mischst du VCL und non-VCL?

Delphi-Quellcode:

var
  iTop, iItem: Integer;
begin
  with ListBox do
  begin
    iTop := TopIndex;
    iItem := ItemIndex;
    Items.BeginUpdate;
    Items.Assign(Strings);
    if iItem < Items.Count then
    begin
      ItemIndex := iItem;
      TopIndex := iTop;
    end else { ... };
    Items.EndUpdate;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu