combobox的hint问题？

Question

combobox的每个text在鼠标下拉的过程中都显示相应内容。

Answer 1

后来看了看源码.......
你试试：procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
  SetWindowPos(ComboBox1.Handle, 0, 0, 0, Width * 2, ComboBox1.ItemHeight * ComboBox1.Items.Count +
      ComboBox1.Height + 2, SWP_NOMOVE + SWP_NOZORDER + SWP_NOACTIVATE + SWP_NOREDRAW +
      SWP_HIDEWINDOW);
end;具体的你自己看着办吧

Answer 2

好像也不怎么样.....还是你在OnDropDown中写 ComboBox1.Width := 200;
在OnChange中写 ComboBox1.Width := 80;吧。