朋友们帮我看看皮肤控件动态创建的问题

Question

下载地址http://d.namipan.com/d/12ddc46ce34d2b16fe0d2854a2aab2336f33dbfcee630000
var  
  vspScrollBar0, vspScrollBar1:TspSkinScrollBar;procedure TForm1.Button1Click(Sender: TObject);
begin
   if Caption = '创建完毕' then Exit;
  vspScrollBar0:= TspSkinScrollBar.Create(Self);
  vspScrollBar0.Parent:= Self;
  vspScrollBar0.Align := alRight;
  spSkinListView1.VScrollBar:= vspScrollBar0  ;
  vspScrollBar0.Width := 20;
  vspScrollBar0.Kind := sbVertical;
  vspScrollBar0.SkinData:=spSkinData1;//貌似给他设置皮肤数据之后就Kind属性没效，
                                     //您可以把这代码去掉看看，去掉了之后就不会出现异常状况  vspScrollBar1:= TspSkinScrollBar.Create(Self);
  vspScrollBar1.Parent:= Self;
  vspScrollBar1.Align := alBottom;  
  spSkinListView1.HScrollBar:= vspScrollBar1;
  vspScrollBar1.SkinData:=spSkinData1;
  Caption := '创建完毕'
end;

Answer 1

控件下载地址http://www.anqn.com/delphi/28/1849.shtml

Answer 2

各位朋友，你们好。我是这么建立的：procedure TForm1.Button1Click(Sender: TObject);
var
  vLI: TListItem;
  vI: Byte;
begin
  for vi:= 0 to 3 do  //建立4个
  begin
    vLI:= ListView1.Items.Add;
    vLI.Caption := IntToStr(vI);
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if ListView1.Selected <> nil then
    ShowMessage(IntToHex(ListView1.Selected.Handle, 8));//显示选中的16进制句柄
end;