procedure Button1Click(Sender: TObject)
begin
ListBox1.Item.Delete(ListBox1.ItemIndex);
end;
这个就在选择了ListBox之后删除不会出现任何问题。
procedure Button1Click(Sender: TObject)
begin
bsSkinListBox1.Item.Delete(bsSkinListBox1.ItemIndex);
end;
而这段只要删除了之后就会提示越界。不知道什么原因。
begin
ListBox1.Item.Delete(ListBox1.ItemIndex);
end;
这个就在选择了ListBox之后删除不会出现任何问题。
procedure Button1Click(Sender: TObject)
begin
bsSkinListBox1.Item.Delete(bsSkinListBox1.ItemIndex);
end;
而这段只要删除了之后就会提示越界。不知道什么原因。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货