Delphi中如何判决CheckListBox1点击项已打勾?

delphi中怎样修改checklistbox选中的一个值?~

示例代码
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.FormCreate(Sender: TObject);beginListBox1.Items.Add('item1');ListBox1.Items.Add('item2');ListBox1.Items.Add('item3');end;procedure TForm1.ListBox1Click(Sender: TObject);beginShowMessage(ListBox1.Items[ListBox1.ItemIndex]);end;

if checklistbox1.Checked[0] = true then
begin
showmessage('第一项被选择');
end;

用Checked[Index]属性来判断，Index为0表示第一项，以此类推，值为True表示勾了，false表示没有勾上

for i := 0 to ChekList.Items.Count - 1 do
if ChekList.Checked[i] then Showmessage('勾选上啦');

---

江苏省15266768111： delphi 如何判断多个checkbox是否选中 - ？
缪榕新瑞： 方法1:对每个checkbox做依次的判断,是否checked=true.多的话,就麻烦了.方法2:首先创建数组,大小根据checkbox的个数来定夺,然后在每个checkbox的click事件中,在数组的相应下标下,对于checked,或者uncheck的值填充,完了之后,在你需要判断的地方,对数组进行循环,就可以得出你需要的答案了.此方法最活 方法3:对compement做with循环,判断是否位checkbox控件,是的话,检查checked属性,跟方法1想类似,但简单明了与方法1,代码量也相对方法1少 给分!

江苏省15266768111： Delphi中同一界面多个checkbox如何用数组判断是否被选中. - ？
缪榕新瑞： 声明一个窗体内的全局数组,类型为array[1..C_MaxCheckBoxCount],在合适的地方(比如OnFormCreate)进行初始化,挨个设置数组元素为各个checkbox.使用的时候遍历数组,检查是否选中.

江苏省15266768111： 如何判定delphi listview 中checkbox 选中数目 - ？
缪榕新瑞： TStringGrid,TDrawGrid控件; TDBGrid,数据库表格控件,连接数据库后自动按照数据库字段显示. 属性自己看.方法有动态提示.不明白,选住后F1,看帮助. 按Ctrl键,用鼠标点属性或方法,可以查看控件原代码.Delphi的原代码是公开的.

江苏省15266768111： [Delphi]!~在Delphi中如果要判断是否同是按下了Ctrl+C 怎么写啦????~ - ？
缪榕新瑞： procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if ((ssctrl = ssCtrl) and (key = #3)) then // begin showmessage('sadf'); end; end;

江苏省15266768111： delphi中怎样判断事件触发 - ？
缪榕新瑞： 我现在来总结楼上两位说的吧: 说白了 OnClick 是一个指针 它可以指向你所为它指定的 过程; 你需要在动态创建Label 的时候将创建出来的Label 的Onclick 事件分配给 一个TNotifyEvent格式 事件. 如 procedure Form1.LabelsClicked(Sender: ...

江苏省15266768111： 在DELPHI中这样设计tablename属性对不对? - ？
缪榕新瑞： 这样是不行的在判断checkbox的属性之前应该先将table的active设置为false在判断后再将其设置为true

江苏省15266768111： delphi 中判断异常处理的语句是什么? - ？
缪榕新瑞： try {......} excepton E: Exception do begin showmessage(e.message); end; end;

江苏省15266768111： 在DELPHI里面如何控制wwDBGRID 里面的CHECKBOX的READONLY属性? - ？
缪榕新瑞： CDSDate_Dtl.FieldByName('c_grade').ReadOnly := False; c_grade 就是你 checkedbox所对应的字段名字.或者在设计阶段的时候,就可以设置readonly属性,即TWWDBGrid可以对每一个列设置ReadOnly属性..

江苏省15266768111： 在DELPHI中如何判断知道键盘按了哪个键(如:DELETE键).谢谢？
缪榕新瑞： beginform 的onkeydown,onkeypress,都能处理.把Form的keypreview := true;你说的功能键在onkeydown过程里参加下面的代码 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); if Key = vk_delete then showmessage('hit Delete Key');end;为什么不搜刮一下先.

江苏省15266768111： delphi怎么判决然毅然后添加?？
缪榕新瑞： begin find:= false; for i:= 0 to ListBox1.Items.Count - 1 do begin if ListBox1.Items[i] = Edit1.Text then begin find:= true; break; end; end; if not find then ListBox1.Items.Add(Edit1.Text);end;在edit1.OnKeyPress事宜中添加代码 procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);var i: integer; find: boolean;