组件中想加入Items属性，怎么做？

Question

好像不能直接加，看源码挺麻烦的。没简单点的？

Answer 1

一点点找vcl源码吧，贴上去应该有简单方法

Answer 2

你想怎么直接加？看不懂啊，要简单到什么程度？你说：“给我一个Item属性”它就给你一个。那你直接说“给我一个软件”得了。按我的理解你是要加一个数组属性，声明是这样的：
property Items[Index: Integer]: Integer read GetItems write SetItems;
在上面点右键选择"complete class at cursor"Delphi会替你把需要的函数声明都写好
在GetItems里写如何得到这个Item，一般是从内部的一个List中按Index读出来，SetItems里写如何写入Item，如果你是需要通过AddItem之类的方法动态增加删除Item的，一般不提供写方法。
最简单的一个例子；TIntArray = class
private
  FArray: array[0..99] of Integer;
  procedure SetItems(Index: Integer; Value: Integer);
  function GetItems(Index: Integer): Integer;
published
  property Items[Index: Integer]: Integer read GetItems write SetItems;
end;procedure TIntArray.SetItems(Index: Integer; Value: Integer);
begin
  FArray[Index] := Value;
end;function TIntArray.GetItems(Index：Integer): Integer;
begin
  Result := FArray[Index];
end;

Answer 3

asj(最烦活稀泥) ( )
说的很好阿
楼上什么意思？

Answer 4

:0，说错话啦？
 jinjazz(人雅的标记--落寞刺客) 指点指点

Answer 5

<<:0，说错话啦？
没有啊,感觉楼上的答非所问阿,代码都在vcl里,看一下listbox的items属性和create方法不就行了,没有必要贴出来吧

Answer 6

asj(最烦活稀泥) ( )  说的有错吗？

Answer 7

其实在你的类中加入一个TList对象就行了，就这么简单

Answer 8

Items你想要什么类型的啊。
有很多的啊，有些是Tstrings，有些是Listitems,有些是TreeNodes，好多