請版主幫幫忙

一般很少有CheckListBox 中的勾勾是自己畫的。幾乎沒有。 (才可能變化顏色) 大多利用圖示畫圖。 也就是說您看到的，事實上為圖檔。非自己本身向量畫圖。 因此除了更換圖示或自己畫。因別無他法。

Hi SamSam1230,    運用 Delphi 提供的 CheckListBox 元件，再如 wameng 版大所言，自行繪製即可 1.set Style for the CheckListBox to lbOwnerDrawFixed 2.Add below codes to it's OnDrawItem event

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  Offsetx,Offsety: Integer;
  CRect : TRect;
  CC : TColor;
begin
  OffsetX := 2;
  Offsety := 1;
  with (Control as TCheckListBox) do
    begin
      CRect.Left := ItemRect(Index).Left;
      CRect.Right := ItemRect(Index).Left   15;
      CRect.Top := ItemRect(Index).Top;
      CRect.Bottom := ItemRect(Index).Bottom;
      if Checked[Index] then
        begin
          CC := Canvas.Brush.Color;
          Canvas.Brush.Color := Color;
          Canvas.FillRect(CRect);
          Canvas.Brush.Color := ClBlue; // Fill Color
          Canvas.Rectangle(CRect.Left   OffsetX,Crect.Top   OffsetY,Crect.Right - OffsetX,Crect.Bottom - OffsetY);
          Canvas.Brush.Color := CC;
        end;
    end;
  with (Control as TCheckListBox).Canvas do
  begin
  FillRect(Rect);
  TextOut(Rect.Left   OffsetX, Rect.Top, (Control as TCheckListBox).Items[Index]);
  end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝大大