Tips (1541)

Tip Bewertung (2):

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