Listview Autoscroll

[Wadim]

hi,

hab folgedes problem, hab ein listview und habe mit einer schleife eine suchfunktion eingebaut

hier zuerst der quellcode:

Code:

begin
a := listview1.Items.Count - 1;
b := 0;
if combobox1.Text = 'Name' then
  begin
  while b <= a do
    begin
    if combobox2.Text = listview1.Items.Item[b].Caption then
      begin
      listview1.Items.Item[b].Selected := true;
      edit1.Text := listview1.Items.Item[b].Caption;
      edit2.Text := listview1.Items.Item[b].SubItems.Strings[0];
      edit3.Text := listview1.Items.Item[b].SubItems.Strings[1];
      edit4.Text := listview1.Items.Item[b].SubItems.Strings[2];
      end;
    b := b+1;
    end;
  end;
End;

jetzt wenn ich nach einen namen suche findet er diesen und markiert ihn, jetzt will ich aber auch das er automatisch zu der markierten stelle geht - per autoscroll oder sowas??

kennt jemand die eigenschaft oder einen quellcode dafür??

danke