Komponente aus TComboBox dessen Items CheckBoxen sind

[Hansa]

Als Denkansatz :

Delphi-Quellcode:

procedure TForm1.cbo1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
const IsChecked : array[Boolean] of Integer =
      (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
var DrawState: Integer;
begin
  Canvas.FillRect(Rect);
  DrawFrameControl(cbo1.Canvas.Handle,Rect,DFC_BUTTON,DrawState);
  DrawState := ISChecked[StrToInt (cbo1.Items[Index]) mod 2 = 0];
  Canvas.FillRect(Rect);
  DrawFrameControl(cbo1.Canvas.Handle,Rect,DFC_BUTTON,DrawState);
end;

Die Einträge in der ComboBox haben dann zumindest Checkboxen und jeder zweite ist gecheckt.