ListBox添加Item的代码如下：
(示例10%20用代码添加删除Item).files/image002.jpg)
procedure
TFrameListBox_ItemOperCode.btnAddItemClick(Sender: TObject);
var
I: Integer;
AListBoxItem:TSkinListBoxItem;
begin
//准备批量添加
Self.lbTicketProductList.Prop.Items.BeginUpdate;
try
//先清空所有Item
Self.lbTicketProductList.Prop.Items.Clear(True);
for I := 0 to 20-1 do
begin
//添加Item
AListBoxItem:=Self.lbTicketProductList.Prop.Items.Add;
AListBoxItem.Caption:=IntToStr(I)+'南靖土楼云水谣相当好玩你来不来';
AListBoxItem.Detail:='南靖土楼小区12栋';
AListBoxItem.Detail1:='109';
AListBoxItem.Detail2:='100';
//如果有图片的网址,那么可以直接指定Icon的Url
if I mod 2 = 0
then
begin
AListBoxItem.Icon.Url:='http://www.orangeui.cn/download/testdownloadpicturemanager/TicketProduct1.png';
end
else
begin
AListBoxItem.Icon.Url:='http://www.orangeui.cn/download/testdownloadpicturemanager/TicketProduct2.png';
end;
// //如果图标是文件,则可以使用LoadFromFile
//
AListBoxItem.Icon.LoadFromFile(AFilePath);
// //如果图标是数据流,则可以使用LoadFromStream
//
AListBoxItem.Icon.LoadFromStream(AMemoryStream);
end;
finally
Self.lbTicketProductList.Prop.Items.EndUpdate();
end;
end;
ListBox清空所有Item的代码如下:
(示例10%20用代码添加删除Item).files/image004.jpg)
procedure TFrameListBox_ItemOperCode.btnClearItemClick(Sender:
TObject);
var
I: Integer;
AListBoxItem:TSkinListBoxItem;
begin
//准备批量添加
Self.lbTicketProductList.Prop.Items.BeginUpdate;
try
//清空所有Item
Self.lbTicketProductList.Prop.Items.Clear(True);
finally
Self.lbTicketProductList.Prop.Items.EndUpdate();
end;
end;
ListBox删除指定Item的代码如下:
(示例10%20用代码添加删除Item).files/image006.jpg)
procedure TFrameListBox_ItemOperCode.btnDelItemClick(Sender: TObject);
begin
if
Self.lbTicketProductList.Prop.Items.Count>0 then
begin
Self.lbTicketProductList.Prop.Items.Delete(0);
//或使用Remove()
//Self.lbTicketProductList.Prop.Items.Remove(AListBoxItem);
end;
end;
ListBox插入Item的代码如下:
(示例10%20用代码添加删除Item).files/image008.jpg)
procedure TFrameListBox_ItemOperCode.btnInsertItemClick(Sender:
TObject);
var
AListBoxItem:TSkinListBoxItem;
begin
//插入Item
AListBoxItem:=Self.lbTicketProductList.Prop.Items.Insert(0);
AListBoxItem.Caption:='南靖土楼云水谣相当好玩你来不来';
AListBoxItem.Detail:='南靖土楼小区12栋';
AListBoxItem.Detail1:='109';
AListBoxItem.Detail2:='100';
AListBoxItem.Icon.Url:='http://www.orangeui.cn/download/testdownloadpicturemanager/TicketProduct1.png';
end;