listview zeige letztes subitem der angeklickten zeile

[Sprint]

Pushen erst nach 24 Stunden!

Delphi-Quellcode:

  with ListView1 do
    if Assigned(Selected) then
      with Selected.SubItems do
        ShowMessage(Strings[Count - 1]);

Delphi-Quellcode:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin

  if Selected then
    if Assigned(Item) then
      with Item.SubItems do
        ShowMessage(Strings[Count - 1]);

end;