5,388
社区成员
发帖
与我相关
我的任务
分享
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;