Änder deinen Code mal so um (ungetestet):
Zitat von
Akut-Programming:
Delphi-Quellcode:
procedure Tfrm_terminplaner_main.lv_eintraegeClick(Sender: TObject);
var
i: integer;
begin
if lv_eintraege.Items.Count = 1
then begin
i:=lv_eintraege.Selected.Index;
Label7.Caption:='ausgewähle TerminID: '+lv_eintraege.Items[i].Caption;
end;
end;
Siehe mein vorheriges Posting! Der Text der ersten Spalte ist in Caption!