listview 问题?急!!!

coresky 2004-11-24 03:05:52
listview 的viewstyle设定为vsReport,左侧显示checkbox框时,如何屏蔽掉每个项目的单击checkbox的事件?也就是单击社checkbox框不起作用。
...全文
142 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
coresky 2004-11-25
  • 打赏
  • 举报
回复
感谢大家的参与,也许我说的不明白,下面我详细说一下具体过程和问题:
我单击一项目时,此项目的checked:=true,接着对此选定项目的一些内容改变,再次单击取消选择。问题时我不单击项目只单击或用右键单击左边的选择框,此时此项目也被选择(checked:=true)但没选定,且没有事件被激发。
问题是我想让单击选择框的事件不起作用或激发一个事件。
Jute 2004-11-25
  • 打赏
  • 举报
回复
listview.selected.checked:=false
fayeflash 2004-11-25
  • 打赏
  • 举报
回复
g961681(麻油) 说的就是对的。可以的。
lijinghe1 2004-11-25
  • 打赏
  • 举报
回复

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
r : TRect;
aItem: TListItem;
begin
aItem := ListView1.GetItemAt(X,Y);
if (aItem = nil) then Exit;
r:=aItem.DisplayRect(drBounds);
r.Right :=aItem.DisplayRect(drLabel).Left;
if (X >r.Left) and (X <r.Right) and (Y>R.Top) and (Y<R.Bottom) then begin
//鼠标在checkbox点击

end;
end;
zhaozhen2004 2004-11-25
  • 打赏
  • 举报
回复
不懂什么意思...
g961681 2004-11-25
  • 打赏
  • 举报
回复
读若干遍,硬是没懂什么意思!
糖醋鼻子 2004-11-24
  • 打赏
  • 举报
回复
listview1.readonly := true;
g961681 2004-11-24
  • 打赏
  • 举报
回复
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
Item.Checked := True;
end;
zzlingaaa 2004-11-24
  • 打赏
  • 举报
回复
listview1.Enabled := false;
coresky 2004-11-24
  • 打赏
  • 举报
回复
大家没明白我的意思。这个checkbox还必须要,必须设为true,他的选定是通过单击某一个项目时设定为listview.selected.checked:=true,但是单击checkbox小框时不起作用。
pengxuan 2004-11-24
  • 打赏
  • 举报
回复
listview1.checkboxes:=false;
  • 打赏
  • 举报
回复
同上,up
BoxFan 2004-11-24
  • 打赏
  • 举报
回复
listview1.checkboxes:=false;
1.兼容msi,自动高亮目标程序,实时生成脚本 2.可导入其他非i-Autoit创建的Au3脚本并编译为EXE 3.自动读取安装程序图标,编译时也可以选择其他图标 4.可自定义编译EXE版本信息 5.支持组件多控件选择(例如标准树形treeviw、列表listview控件)、文本edit控件修改文本(例如安装路径、序列号输入) 6.新增隐藏自动安装模式,不过尚未完美 7.模式切换分为控件模式和鼠标位置模式,切换快捷键和暂停捕捉快捷键均可自定义设置 8.可自定义是否在控件点击时左上角提示相关信息 9.可自定义运行脚本是否需要托盘提示目前代码行数和对应代码 10.其他功能(打包、删除文件,添加、删除启动项,查杀进程和随机窗口)可方便生成相应代码并可一键复制 日后根据反馈陆续推出动画教程,暂时补个简单文字教程: 1.将目标程序拖到“安装程序”的文本框,点击运行 2.程序启动并高亮置顶,此时别太,尤其是那些需要释放文件的程序,稍等片刻再开始按照正常安装步骤点击相应按钮 3.如果需要修改安装路径或输入注册码,请在第1步前将路径复制好,然后单击文本框,会弹出一个提示框,输入需要修改的路径即可 4.检测到点击其他控件(标准树形treeviw、列表listview控件)会自动转换成相对位置点击 5.某些控件如果发现不支持或者控件结构非常复杂,可以尝试切换为鼠标模式用相对位置模拟点击 6.如果需要关闭进程或者窗口之类的,可以在“其他功能”里面的选项使用对应功能生成代码并一键复制后转到“安装脚本”选择合适位置右键选择粘贴代码即可 7.测试代码:在“安装脚本”界面右键选择“测试代码”即可生成临时测试程序并运行 8.编译代码:选择图标或保留源程序图标后再自定义版本信息(也可不定义)编译即可,在目标程序同目录下生成安装脚本程序 9.导入脚本:将目标脚本拖入“运行编译”的“安装脚本”右侧文本框,点击导入即可 10.隐藏安装模式:部分软件无法兼容,还需继续更新完善,有兴趣的可以自行测试

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧