delphi listview1 中添加check选中事件

本文整理自网络，侵删。

 delphi listview1 中添加check选中事件


请在ListView1MouseDown 中添加如下代码，即可完成;

var
Item: TListItem;
begin
Item := ListView1.GetItemAt(X, Y);
if (Button <> mbLeft) or (Item = nil) then Exit;
if htOnStateIcon in ListView1.GetHitTestInfoAt(X, Y) then
begin
if not Item.Checked then
showmessage(item.SubItems[2])
else

end;

 

相关阅读 >>

Delphi程序版本信息设置说明

Delphi建立快捷方式的函数:createshortcut()

Delphi try except语句 和 try finally语句用法以及区别

Delphi xe7中使用json

Delphi 打开android应用信息

Delphi中如何给一个字符串从左边进行补0

Delphi xe firemonkey的stylebook皮肤控件的使用

Delphi unigui http url直接下载文件

Delphi 校验手机号及身份证号

Delphi sqlite vacuum 压缩数据库体积

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi listview1 中添加check选中事件