Hallo,
Also füllen tue ich es so.
Delphi-Quellcode:
for I := 0 to ADOQuery1.RecordCount - 1 do begin
ListItem := ListView1.Items.Add;
ListItem.Caption := ADOQuery1.FieldByName('Line').asstring;
ListItem.SubItems.Add(ADOQuery1.FieldByName('SQL_Where').asstring);
ADOQuery1.next;
end;
Leider hatte ich da vorher nen Fehler .
ListItem.SubItems.Text :=ADOQuery1.FieldByName('SQL_Where').asstring;
Dann hat es beim Klick auf das Subitem gekracht, Zugriffsverletzung.
Nun hab ich es so wie oben gemacht und ich bekomme beim Klick auf das Subitem immer itemindex -1.
Klick auf das Item funktioniert.
Edit:
Ohman nDanke Bbommel, das war es, Vielen Dank.
Ich habe es im Onklick schon drin mit dem Itemindex >-1.
Danke