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显示jpg、png、gif图片

Delphi unigui form控件跳转

Delphi返回一个汉字的unicode编码

Delphi获得唯一id字符串

Delphi 语言字符集

Delphi百度地图经纬度与地址互转

Delphi在combobox下拉框里显示图片

Delphi异常死亡进程的自动复活

Delphi 程序运行提示 “database login”对话框，让输入adoconnection1 的username和password

Delphi xe ttask.waitforall/waitforany 一不小心会造成内存泄露

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

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