TListView: Nach FindCaption auch die Scrollposition aktualisieren

[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