Scrollwheel position of Listbox

[Weitentaaal]

Hello,

ist it possible to set and get the Position of the ListBox scrollbar ?

i need it because i use the Listbox just to display a List of Objects. Those Objects are provided by another class. and instead of add and remove i just clear the whole List and refill it (due to multiple changes in this List). This way the Listbox Scroll Position gets reset.

thanks in advance.

[KodeZwerg]

That should solve your problem.

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   i: Integer;
4.   li: Integer;
5. begin
6.   li := ListBox1.TopIndex; // remember old position
7.   ListBox1.Items.BeginUpdate;
8.   ListBox1.Clear;
9.   for i := 0 to 99 do
10.     ListBox1.Items.Add('Test ' + IntToStr(i));
11.   if (li <= Pred(ListBox1.Items.Count)) then
12.     ListBox1.TopIndex := li; // set old position
13.   ListBox1.Items.EndUpdate;
14. end;

[Weitentaaal]

That should solve your problem.

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   i: Integer;
4.   li: Integer;
5. begin
6.   li := ListBox1.TopIndex; // remember old position
7.   ListBox1.Items.BeginUpdate;
8.   ListBox1.Clear;
9.   for i := 0 to 99 do
10.     ListBox1.Items.Add('Test ' + IntToStr(i));
11.   if (li <= Pred(ListBox1.Items.Count)) then
12.     ListBox1.TopIndex := li; // set old position
13.   ListBox1.Items.EndUpdate;
14. end;

Did the Trick ! thank you !