求助

[zhanggok]

在组合框的ondropdown事件输入下列代码

procedure TMainform.ComboBox2DropDown(Sender: TObject);
begin
ComboBox2.Items.BeginUpdate ;
ComboBox2.items.Clear;
ComboBox2.Style:=true;
ComboBox2.Items:=screen.Fonts ;
ComboBox2.Items.EndUpdate ;
end;
在执行到ComboBox2.Style:=true;为出错
这是错误信息:
[Error] ListForm.pas(38): Incompatible types: 'TComboBoxStyle' and 'Boolean'
[Fatal Error] TListForm.dpr(5): Could not compile used unit 'ListForm.pas'

[haoco]

ComboBox的Style是一个枚举类型只能取如下一个：
(csDropDown, csSimple, csDropDownList, csOwnerDrawFixed,
csOwnerDrawVariable)
如：
ComboBox2.Style:=csSimple;

[yckxzjj]

这个可以在属性当中设置数据的。不一定都要用代码来实现吧！