TComBoBox自绘下拉列表的问题

Question

各位大侠：
我想自定义ComboBox下拉列表的每一项的高度，使用下面的程序可以达到目标，但下拉框中最多只显示1－2项，这是什么原因呢，怎么解决？
ComboBox1(DropDownCount=8,Style=csOwnerDrawVariable)procedure TForm1.ComboBox1MeasureItem(Control: TWinControl;
  Index: Integer; var Height: Integer);
var
  R:TRect;
begin
  if Index>=0 then
  begin
    Height:=Control.Height+5;
  end;
end;

Answer 1

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
   sendmessage(ComboBox1.Handle,CB_SETITEMHEIGHT,0,50);
end;

Answer 2

jerry8:
　　不行呀，下拉框都拉不下来了。

Answer 3

原因找到了：[下拉框的总高度 H]＝ItemHeight*[下拉框应显示的项数]
[实际显示的项数]＝H/[设定高度]但怎么解决呢？

Answer 4

每个项的高度为:
ComboBox1.ItemHeight := 20