SetScrollInfo funktioniert bei mir nicht...

[Darkmorph]

Benutze folgenden Code in meiner Applikation,um nach einem Update der Listbox, die scrollbar an die originale Position zu schieben.

Delphi-Quellcode:

scrollbarinfo.fMask:=SIF_POS;
getScrollInfo(Listbox1.Handle, SB_VERT, ScrollbarInfo);
Listbox1.Items:=Strings;
scrollbarinfo.fMask:=SIF_POS;
SetScrollInfo(Listbox1.Handle, SB_VERT, ScrollBarInfo, true);
UpdateWindow(Listbox1.Handle);

Dieser Code bewegt zwar die Scrollbar, aber der Inhalt der Listbox verändert sich nicht, d. h. es ist so, als hätte man die scrollbar nicht verschoben... ich habs mit Listbox.repaint usw versucht... nix hilft, habt ihr eine idee?

mfg Benjamin

[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

[Darkmorph]

Hi Marabu,

vielen Dank für deine Hilfe :)
dein Code hat Wunder geholfen. Kannte die Eigenschaft TopIndex noch nicht und hatte sie daher auch garnicht in Betracht gezogen.

mfg
Benjamin