客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
在Delphi中checklistbox中高亮选中（不论是否Checked）能够进行操作么？删除，上下移动等等
删除：CheckListBox.DeleteSelected;
删除用
//在项目中添加字符串(子项目的最后一位接着添加) //全选 高亮选中Selected CheckListBox1.MultiSelect := True; CheckListBox1.SelectAll; //全选 Checked All procedure TForm1.Button11Click(Sender: TObject); var i :integer; begin for i := 0 to CheckListBox1.Items.Count - 1 do begin CheckListBox1.Checked[i] := True;//反选设置为False end; end; //让第n行被高亮选中 CheckListBox1.Selected[1]:=true;//第2行 //取消高亮选中 CheckListBox1.ClearSelection; //第3行的项目灰色不可用 CheckListBox1.ItemEnabled[2] := False;//True可用 //删除高亮选中的项目，(只管高亮选中就会被删除，和checked是否无关) CheckListBox1.DeleteSelected;//删除选中项目，即使该给项目 没勾上也会被删除 //删除已勾选的中项目 procedure TForm1.Button5Click(Sender: TObject); var i : integer; begin for i := CheckListBox1.Items.Count-1 downto 0 do //从后面往前面删 begin if CheckListBox1.Checked[i] then begin CheckListBox1.Items.Delete(i); end; end; end; //清空项目 CheckListBox1.Items.Clear; //将CheckListBox1的全部添加到CheckListBox2的Items中
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer; begin CheckListBox2.Items.Clear; for i := CheckListBox1.Items.Count - 1 downto 0 do begin CheckListBox2.Items.Add(CheckListBox1.Items[i]); end; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论