MultiSelect в CheckListBox

[lexaltd]

Подскажите как сделать в CheckListBox - MultiSelect = false
Где не пытаюсь вставить MultiSelect := false - всеравно можно выбрать несколько пунктов
Мне надо чтоб в CheckListBox можно выбрать только один пункт

Зарание спасибо


P.S.Установил AlphaControls package там есть sCheckListBox и в нем на вкладке Properties есть MultiSelect , но он тоже не работает

[Alter]

Это вы не про выделение строк пишите, вы здесь хотите запретить установку галок в строках.

[lexaltd]

Сообщение от Alter

Это вы не про выделение строк пишите, вы здесь хотите запретить установку галок в строках.

Ивеняюсь не правильно объяснил
Да именно запретить установку галок в строках
Мне надо чтоб в CheckListBox можно было установить только одну галку

[NikLik]

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

[lexaltd]

Сообщение от NikLik

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

Спасибо большое всё работает

[Alter]

Не легче ли тогда использовать специальный компонент TRadioGroup; Itemindex <- выбранный пункт; Items <- объект типа TStrings, там хранятся названия пунктов, построчно. Для начала этого достаточно.