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;