ImageList里面有两个小图标,一个对号,一个错号,如何才能实现复选对号的效果?类似杀毒软件里面可以多选盘符一样(可以同时选中C,D盘进行杀毒)
解决方案 »
- Delphi数据库更新问题~~~
- ■■■实时信息如何做?高手请进!!■■■
- [在线急盼]TEdit控件的SelStart出错
- 我想,在FORM上按任意键,界面一个数字累加滚动,再按任意键数字停止滚动,如何实现?请教高手!
- 在线等待.....希望兄弟们都来看看日期比较问题
- 移动焦点问题
- 請問如何可以動態的修改mdb數據庫結構
- 高分请教:在线等待!!怎么在Delphi 里面控制拨号网络,在网上查的一些资料都没有办法通过!火急!!
- 急急急,字符串问题。在线等候!
- 高手在哪里?请教:Client/Server + SqlServer7.0 问题
- 请教batchMove转换大字段(clob或blob)的问题
- 与SQL SERVER 连接速度慢的问题?
一个控件
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
MyHitTest : THitTests;
TreeNode : TTreeNode;
begin
MyHitTest := Treeview1.GetHitTestInfoAt(X,Y);
if htOnIcon in MyHitTest then
begin
TreeNode := Treeview1.Selected;
if TreeNode.ImageIndex = 0 then
SelectNode(TreeNode, 1)
else
SelectNode(TreeNode, 0);
Treeview1.Refresh;
end;
end;
procedure tform1.SelectNode(TreeNode: TTreeNode; IsCheck: Integer);
var
i: Integer;
begin
if TreeNode = nil then Exit;
TreeNode.ImageIndex := IsCheck;
TreeNode.SelectedIndex := IsCheck;
for i := 0 to TreeNode.Count - 1 do
begin
SelectNode(TreeNode.Item[i], IsCheck);
end;
end;