Combox 表现为CheckBox的样式，支持多选的方法

atiger

实现的方法，可以采用 TcontrolComboBox 和TcheckListBox 组合而成。

大致步骤：
1、在界面上拖一个组件 TcheckListBox

2、通过代码创建 TcontrolComboBox （这个组件在2005.6月发布的版本提供，如果是前面的版本，可以通过代码来创建）参考代码如下：
Var
lCtl: TcontrolComboBox;
…
  lCtl :=  TcontrolComboBox.Create(self);
  lCtl.Parent :=  Panel1;
  lCtl.DropDownControl := CheckListBox1;

3、在TcheckListBox 的OnClickCheck，实现即可，参考代码如下：
var
  i: integer;
begin
  lCtl.Text := '';
  for i:=0 to CheckListBox1.Count-1 DO
    IF CheckListBox1.Checked Then
      lCtl.Text := lCtl.Text + CheckListBox1.Items
end;