Hallo Frank,
bei mir funktioniert es so:
Delphi-Quellcode:
procedure TDemoForm.CheckListBoxClickCheck(Sender: TObject);
begin
with Sender as TCheckListBox do
with self.FindComponent(Items[ItemIndex]) as TControl do
Visible := Checked[ItemIndex];
end;
Grüße vom marabu