请问如何在TListView中的一个subitem中动态生成按钮呢?我生成的按钮不能随着用户Scroll而跟着滚动,程序如下(200分)

  • 主题发起人 主题发起人 lndlgzg
  • 开始时间 开始时间
L

lndlgzg

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormShow(Sender: TObject);
var
m: Integer;
begin
SetLength(bButton,ListView1.Items.Count);
for m := 0 to ListView1.Items.Count-1 do
begin
bButton[m] := TButton.Create(Self);
bButton[m].ParentWindow := ListView1.Items[m].Handle;
bButton[m].Top := ListView1.Items[m].Top + 20;
bButton[m].Caption := IntToStr(m);
bButton[m].Left := 202;
bButton[m].Width := 50;
bButton[m].Height := 10;
end;
end;
 
应该设置 ListView 的 OwnerDraw 为 true;
在 OnCustomDraw...等 中处理。
 
这要求挺怪异
应该是自己draw才可以
还好,应该不是太麻烦
自己画吧
 
后退
顶部