TCustomListBox.AddItem的帮助看不懂(2分)

  • 主题发起人 主题发起人 shenger
  • 开始时间 开始时间
S

shenger

Unregistered / Unconfirmed
GUEST, unregistred user!
Adds an item to the list box

procedure AddItem(Item: String; AObject: TObject);

Description

Call AddItem to add a new item to the end of the list.

Item is the text of the item to add.

AObject is the object associated with the new item.

Add一个Item就是了,干吗还有个AObject?AObject又如何与这个Item associate呢?

Delphi的帮助,不爽啊!!!!!!!!11
 
procedure AddItem(Item: String; AObject:TObject)中

Aobject就是要添加给listbox的关联对象
也就是发生Additem的哪个对象。如在button的单击中:DBListBox1.AddItem('dfdf',sender);
button就是the object associated with the new item.
 
[:)]
AddItem后,ListBox的Items加入一个 String,并且,Items的Ojects也增加了一个 Object.

举一个例子说明(它的用处):
给一个新工程添加PageControl,随便加上几个页,再放上一个ComboBox,
以下程序实现当ComboBox变动时,PageControl也跟着变动.
procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
for i:=0 to PageControl1.PageCount-1 do
ComboBox1.AddItem(PageControl1.Pages.Caption,//每一项的标题
PageControl1.Pages); //每一个标题对应的 Page页
ComboBox1.ItemIndex:=0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (Sender is TComboBox) then
with (Sender as TComboBox) do //将对应的页(Page)设置为当前页
PageControl1.ActivePage := TTabSheet(Items.Objects[ItemIndex]);
end;

另外,用Delphi的帮助必须逐渐掌握它的规律,因为它的帮助风格和Microsoft的不一样.
 
接受答案了.
 
后退
顶部