如何样给ListView控件的Items填加下拉框

uses CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  R: TRect;
begin
  ListView_GetSubItemRect(ListView1.Handle, 1 {第几个Item}, 2{这个Item的第几个SubItem},
    LVIR_BOUNDS, @R);

  if ComboBox1.Parent <> ListView1 then
    ComboBox1.Parent := ListView1;
  ComboBox1.BoundsRect := R
end;

------解决方案--------------------
内嵌控件的方法很多，你可以到网上找一下。
整体思路就是：
当获得焦点时，显示Combobox下拉控件，选择Combobox的值后，将值赋予焦点位置的格子，
Combobox的位置在焦点位置格子的下方，长度一样；
当焦点移开时，Combobox要相应的移动或者隐藏。

怎么做效率更好，那就看你的设计啦！
具体代码自己写。