5,930
社区成员
发帖
与我相关
我的任务
分享如何判断checklistbox中的具体某一项是否被选中？
我用的是delphi7.0,其中checklistbox控件中如何得知哪一项元素是否被选中？
...全文
请发表友善的回复…
发表回复
klangel 2003-05-21
- 打赏
- 举报
procedure TForm1.CheckListBox1Click(Sender: TObject);
var
n:integer;
begin
n:=checklistbox1.ItemIndex;
if checklistbox1.Checked[n] then
showmessage('第'+inttostr(n+1)+'项已选中!')
else
showmessage('第'+inttostr(n+1)+'未选中!');
end;
//可以一试
var
n:integer;
begin
n:=checklistbox1.ItemIndex;
if checklistbox1.Checked[n] then
showmessage('第'+inttostr(n+1)+'项已选中!')
else
showmessage('第'+inttostr(n+1)+'未选中!');
end;
//可以一试
lqxdelphi 2003-04-23
- 打赏
- 举报
同上
big_welley 2003-04-23
- 打赏
- 举报
checklistbox1.items[i].checked
lyf1670884 2003-04-23
- 打赏
- 举报
有index也没什么用呀，它类似于listbox，但每一项元素有check选择框（打V或空），我现在是判断它其中某一项的check是否被选中（打V）。
智商无下限 2003-04-23
- 打赏
- 举报
我用的是DELPHI6没有那个东西，但是我认为应该有个INDEX什么的可以读吧！
kellerlee 2003-04-23
- 打赏
- 举报
procedure TTransComOperatorForm.CheckListBox1Click(Sender: TObject);
begin
case checklistbox1.ItemIndex of
0:begin
执行你的语句
end;
1:begin
执行你的语句
end;
......
end;
begin
case checklistbox1.ItemIndex of
0:begin
执行你的语句
end;
1:begin
执行你的语句
end;
......
end;
www781108 2003-04-23
- 打赏
- 举报
你用一下这样的
if checklistbox1.checked[0]=true then
begin
end;
if checklistbox1.checked[0]=true then
begin
end;
lyf1670884 2003-04-23
- 打赏
- 举报
不知你们有测试过没有，我试过不行：
1、checklistbox.itesm[i]没有checked 的属性。。。。
1、checklistbox.itesm[i]没有checked 的属性。。。。
