CheckListBox, доступность checkbox

[bilibian]

Привет!

Как в CheckListBox сделать для отдельного Чекбокса, что то вроде enable:=false?

То есть сделать его не нажимаемым, без удаления.

[Алексей_2012]

То есть если обычный чекбокс включен, то показать чеклистбокс? Что-то не очень понятно) объясните более конкретно цели

[Sibedir]

Свойство TCheckListBox.ItemEnabled

Добавлено ---------------------------------------------------------------------------------------------
Но можно еще подкрасить губки

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
  CheckListBox1.Repaint;
end;

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
  CheckListBox1.Repaint;
end;

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with CheckListBox1 do begin
    if Checked[Index]
      then Canvas.Font.Style := [fsBold]
      else Canvas.Font.Style := [];
    if ItemIndex = Index then begin
      if CheckListBox1.ItemEnabled[Index]
        then Canvas.Brush.Color := clHighlight
        else Canvas.Brush.Color := clGrayText;
      Canvas.Font.Color := CheckListBox1.Color
    end
    else begin
      Canvas.Brush.Color := CheckListBox1.Color;
      if CheckListBox1.ItemEnabled[Index]
        then Canvas.Font.Color := CheckListBox1.Font.Color
        else Canvas.Font.Color := clGrayText;
    end;
    Canvas.FillRect (Rect);
    Canvas.TextOut (Rect.Left+1, Rect.Top, CheckListBox1.Items[Index]);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckListBox1.Style := lbOwnerDrawVariable;
  CheckListBox1.Checked[3] := True;
  CheckListBox1.Checked[5] := True;

  CheckListBox1.ItemEnabled[2] := False;
  CheckListBox1.ItemEnabled[3] := False;
  CheckListBox1.ItemEnabled[8] := False;
end;

[bilibian]

Sibedir, спасибо большое за помощь!