CheckListBox, immer nur einen Eintrag auswählen

[Bummi]

vielleicht willst Du es so lösen ...

Delphi-Quellcode:

Procedure DisEnableAllExcept(clb:TChecklistBox;ignore:Integer);
var
 i:Integer;
begin

  for I := 0 to clb.Items.Count -1  do
      begin
      if ignore=-1 then clb.ItemEnabled[i] := true
      else
      if i <> ignore then clb.ItemEnabled[i] := false;
      end;

end;

procedure TForm3.CheckListBox1ClickCheck(Sender: TObject);
begin
   if CheckListBox1.Checked[CheckListBox1.ItemIndex] then DisEnableAllExcept(TChecklistBox(Sender),CheckListBox1.ItemIndex)
   else DisEnableAllExcept(TChecklistBox(Sender),-1);

end;