TListView: Nach FindCaption auch die Scrollposition aktualisieren

[Jürgen Paulus]

Hallo Leute,

das folgende Problem hier ist nicht wirklich neu, finde aber keine passende Lösung.

Ich habe eine TListView und eine TEditBox. Wenn ich in der TEditBox etwas eingebe, dann suche ich mit TListView.FindCaption nach einem passenden Teilstring. Wird etwas gefunden, wird dieses Item mit Item.MakeVisible (false) und Item.Selected := true in der TListView hervorgehoben. Wechsle ich nun zum TListView und will nach unten oder oben scrollen, dann fängt TListView wieder von dort an zu scrollen, wo die Scrollposition vor der Suche stand. Wie kann ich das anpassen?

[Jürgen Paulus]

Okay Leute, ich hab's doch selbst rausgefunden. Es fehlte der Aufruf TListView.ItemFocused := TListView.Selected.

Hier das Codebeispiel:

Code:

procedure Tf_SuchBegriffe.e_SuchBegriffKeyUp (Sender: TObject;
                                              var Key: Word;
                                              Shift: TShiftState);

begin

  lv_SuchBegriffe.Selected := lv_SuchBegriffe.FindCaption (0,e_SuchBegriff.Text,true,true,true);

  if lv_SuchBegriffe.Selected <> nil then
  begin

    lv_SuchBegriffe.Selected.MakeVisible (true);
    lv_SuchBegriffe.ItemFocused := lv_SuchBegriffe.Selected;

  end; // if lv_SuchBegriffe.Selected <> nil

end; // procedure Tf_SuchBegriffe.e_SuchBegriffKeyUp