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;

 

相关阅读 >>

winsock 实现telnet后门

为Delphi的控制台程式添加公司信息、版权信息

Delphi idhttp下载文件

Delphi post登陆Delphi盒子论坛源码

Delphi 写dll注入器

Delphi listview排序

Delphi 编写网址加密解密代码

Delphi整理八（对话框）

Delphi 获取memo的行数与列数

Delphi 实现卸载windows应用程序（类似360软件管家-卸载程序）

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

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