Checklistbox-nur ein Item auswählen

[Matze]

Dafür brauchst du imho eine extra Komponente, die nicht bei Delphi mit dabei ist ( VirtualTreeView müsste das können).

Was anderes als diese Lösung (nicht sehr performant durch die Schleife) fällt mir nicht ein:

Delphi-Quellcode:

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
  i: integer;
begin
  if CheckListBox1.ItemIndex > -1 then
  begin
    for i := 0 to CheckListBox1.Items.Count - 1 do
    begin
      if not (i = CheckListBox1.ItemIndex) then
        CheckListBox1.Checked[i] := false;
    end;
  end;
end;