Datesatz -> ListView Items Focus übergeben ?

[Tau]

Hallo Leute

Ich erstelle die Items mit folgendem Code.

Delphi-Quellcode:

procedure TForm1.ListViewItemErstellen(Sender: TObject);
 var NewItem : TListItem;
begin
  ADOQuery1.First;
  ListView1.Items.BeginUpdate;
  ListView1.Items.Clear;

  while not ADOQuery1.Eof do
    begin
      NewItem := ListView1.Items.Add;
      NewItem.Caption := ADOQuery1.FieldByName('Bezeichnung').AsString;
      NewItem.Data := Pointer(ADOQuery1.FieldByName('ID').AsInteger);
      NewItem.ImageIndex := ADOQuery1.FieldByName('ImageIndex').AsInteger;
      ADOQuery1.Next;
    end;

  ListView1.Items.EndUpdate;
end;

nach dem das alle Items erstellt worden sind möchte ich ein bestimmtes Item aus der Datenbank heraus den Focus (ListView) übergeben.

Den Datenbank Zeiger auf die richtige Position zu setzen ist kein Problem
aber den Focus im ListView krieg ich einfach nicht her.
Mir ist klar dass, das ListView erst einmal den Focus bekommen muss.

Aber wie kann ich eine Verbindung zwischen Datensatz und ListView.Item herstellen.

Ich glaub ich sehe den Wald vor lauter Bäume nicht mehr

Wen Jemand einen Tipp für mich hätte wäre ich sehr Dankbar

Schöne Grüße
Tau

[Lannes]

Hallo,

wenn ich verstanden habe was Du meinst, dann:

Delphi-Quellcode:

procedure SelectLVEintrag(LV: ListView1;s:String);
begin
  for z := 0 to LV.Items.Count-1 do
    begin
      if LV.Items[z].Caption = s then
        begin 
        LV.Items[z].selected := True;
        break;
        end;
    end; 
end;

Aufruf:
SelectLVEintrag(ListView1,'BezeichnungX');

[Tau]

Hallo Lannes

das wars, was ich gesucht habe

D A N K E

schöne Grüsse
Tau