摘要: 在Delphi中checklistbox中高亮选中(不论是否Checked)能够进行操作么?删除,上下移动等等删除:CheckListBox.DeleteSelected; 上下移: CheckListBox.Items.Move删除用 CheckListBox1.Items.Delete(Index); 上下移动用 CheckListBox1.Items.Move(CurrentIndex,NewIndex);//在项目中添加字符串(子项目的最后一位接着添加)CheckListBox1.Items.Add(edit1.Text);//全选 高亮选中SelectedCheckListBox1. 阅读全文
posted @ 2012-03-20 17:41 byronming 阅读(14510) 评论(0) 推荐(0) 编辑
摘要: 1、选中某节点,其子节点被选中procedure SetChildState(Node:TTreeNode; State:Integer);var Level:Integer;begin Level:=Node.Level; Node:=Node.getFirstChild; while (Node<>nil) and (Node.Level>Level) do begin Node.StateIndex:=State; Node:=Node.GetNext; end;end;2、选中子节点时父节点也被选中,需要用到递归procedure SetParentState(Nod 阅读全文
posted @ 2012-03-20 17:12 byronming 阅读(269) 评论(0) 推荐(0) 编辑