TListView - aktivieren einiger Checkboxen verhindern

[tomkupitz]

So...

Code:

procedure TForm.ListView1ItemChecked(Sender: TObject; Item: TListItem);
begin
  if Item.Index=0 then
    Item.Checked:=False;  
end;