DELPHI-5P: Automatisch zur mark. ListView-Zeile scrollen

[nelly]

Hallo Delphianer,
mit dem unten dargestellten Code suche ich nach einem Teilstring im Caption. Das ListView hat ca. 1000 Zeilen. Wurde der Teilstring gefunden, wird die Zeile markiert. Ich möchte nun erreichen, daß das ListView-Fenster automatisch zu der markierten Zeile scrollt.

Hättest Du ein Beispiel für mich, wie ich dieses Scrolling durchführen kann ?
MfG.
Uwe

procedure TFormHaupt.Edit1Change(Sender: TObject);
var
iLvZeile : Integer;
begin
for iLvZeile := ListView1.Items.Count - 1 downto 0 do
begin
stemp := Copy(ListView1.Items[iLvZeile].Caption,1,Length(Edit1.Text));
//Beide Teil-Strings vergleichen.
if UpperCase(Edit1.Text) = UpperCase(stemp) then
begin
//Zeile markieren.
ListView1.Items[iLvZeile].Selected := true;
ListView1.Invalidate;
end;
end;
end;

[Jens Schumann]

Hallo Uwe,<br>probier mal dies:<br>
<pre>
<font size="1" face="Verdana Ref">procedure TForm1.BringSelectedToTop(LV : TListview);
var
TopRect : TRect;
sRect : TRect;
begin
sRect:=LV.Selected.DisplayRect(drBounds);
TopRect:=LV.TopItem.DisplayRect(drBounds);
LV.Scroll(0,sRect.Top-TopRect.Top);
end;</font></pre><br>:-) Jens Schuman