...herausfinden, welche Items in einer TListView markiert sind?

Autor: Thomas Stutz

Kategorie: VCL

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base