TListBox的Item改变高度

TListBox.Stye := lbOwnerDrawVariable

procedure TForm2.ListBox1MeasureItem(Control: TWinControl; Index: integer;  var Height: integer);begin  if Index mod 2 = 0 then    Height := 30  else    Height := 20;end;