Eine Art Tabelle mit Check- & Listbox

[Ultimator]

Delphi-Quellcode:

procedure TForm1.CheckListBox1Click(Sender: TObject); 
begin 
if not (CheckListBox1.ItemIndex > ListBox1.Item.Count) then
  ListBox1.ItemIndex := CheckListBox1.ItemIndex;
end;

//edit Delphi-Tags vergessen

Das ist doch das, was du möchtest, oder?