Komponente aus TComboBox dessen Items CheckBoxen sind

[sega84]

Hallo zusammen,
gibt es eine Freeware-Komponente die aus TComboBox basiert und dessen Items CheckBoxen sind?
Die Google suche gab zwar einen Eintrag bei SwissDelphiCenter, allerdings ist dies keine Komponente, sondern nur eine andere Möglichkeit dieses durchzuführen.
Toll wäre es, wenn die ausgewählen Items dann im Text der TComboBox stehen würden...
Hoffentlich habt Ihr da was tolles...
Danke im vorraus.

[DeddyH]

Kannst ja mal hier schauen.

[WIng2005]

Hallo,

in den Jedi´s gibts eine JvCheckedCombobox.

MFG
Steffen

[sega84]

Zitat von DeddyH:

Kannst ja mal hier schauen.

Hi,
danke für die Antwort.
Die Komponente hatte ich bereits ausprobiert. Läuft auch eigentlich ganz gut, nur wenn man das Fenster des Controls schließt und anschließend wieder öffnet, läuft die ganze Komponente nicht mehr!
Trotzdem danke!

[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.