本人在ListView里边自己添加控件，但是当旁边滚动条滚动时，控件位置不随之变化（急）

[linkyou]

While not Eof do
begin
ListItem := ListView2.Items.Add;
ListItem.Caption := FieldbyName('OPT_MEan').AsString;
ListItem.SubItems.Add('');
r := Listview2.Items[RowIndex].DisplayRect(drBounds);
r.Left := r.Left + Listview2.columns[0].Width;
r.Right := r.Left + Listview2.columns[1].Width;
FcheckBox[RowIndex] := TCheckbox.Create(Self);
FcheckBox[RowIndex].Height :=20;
FcheckBox[RowIndex].Parent := Listview2;
FcheckBox[RowIndex].BoundsRect := r;
FcheckBox[RowIndex].Caption := Inttostr(FcheckBox[RowIndex].Top);
RowIndex := RowIndex +1;
Next;
end;
代码很简单，问题是listView的滚动条滚动时，checkbox的位置不会发生变化，请高手帮忙

[linkyou]

UP

[linkyou]

UP

[Blakhawk]

重载paint方法。

[todouwang]

checkbox的位置不会发生变化
设置checkbox的parent为listview

[cdsgajxlp]

ListView2.update();

[海天候]

我以前也遇过一样的事情,是在listview里面加进一个进度条,也是和你一样的毛病..
这个问题也没有解决...
后来只有改成文字形式的百分比显示才行了...

[linkyou]

什么交文字形式的百分比，楼上的兄弟能不能说象详细点