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

怎么样给ListView控件的Items填加下拉框。
主要是SumItems中的二三列添加combobox 。
请牛人指教谢谢

------解决方案--------------------

Delphi(Pascal) code

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;

转自：http://www.myexception.cn/delphi/388309.html

其它的控件也是这样添加的，我测试过。。。

Delphi - 在ListView中添加一个进度条

http://www.cnblogs.com/huangjacky/archive/2009/12/08/1619791.html 还有这一种是绘制的。

【Delphi】超链接效果演示-Delphi编程 这个很老的教程了，讲述 Delphi 6.0 加超链接。这个效果我不是很满意。