Question

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

Answer 1

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;