• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

delphichecklistbox用法

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

在Delphi中checklistbox中高亮选中（不论是否Checked）能够进行操作么？删除，上下移动等等

 

删除：CheckListBox.DeleteSelected;
上下移： CheckListBox.Items.Move 

 

 

删除用
CheckListBox1.Items.Delete(Index);

上下移动用
CheckListBox1.Items.Move(CurrentIndex,NewIndex);

 

//在项目中添加字符串(子项目的最后一位接着添加)
      CheckListBox1.Items.Add(edit1.Text); 


//全选 高亮选中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;

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
delphi创建一个纯文本文件发布时间：2022-07-18
下一篇：
Delphi中@,^,#,$分别表示什么？发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap