TListView

[toms]

Hi!

Das geht so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Longword; 
begin 
  with Listview1 do 
    for i := 0 to Items.Count - 1 do 
      if Items[i].Selected then 
        Items[i].Caption := Items[i].Caption + ' - Markiert!'; 
end;