展开全部
示例代码
procedure TForm1.CheckListBox1Click(Sender: TObject);
var i:integer;
begin
with CheckListBox1 do
for i:=0 to Items.count-1 do
begin
if selected[i] then items[i]:='改变了';
end;
end;
procedure TForm1.CheckListBox1Click(Sender: TObject);
var i:integer;
begin
with CheckListBox1 do
for i:=0 to Items.count-1 do
begin
if selected[i] then items[i]:='改变了';
end;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
