所以基本上当用户点击复选框时,我想在我的列表中添加该项,我尝试使用OnChange事件,但这对我不起作用,因为即使没有点击Checkbox也会被触发.
我的代码简单明了
procedure LvUserChange(Sender: TObject; Item: TListItem;Change: TItemChange); var objUser : TUsers; begin if not assigned(objListOfChangedUsers) then objListOfChangedUsers := TObjectList.Create; objUser := Item.Data; objListOfChangedUsers.Add(objUser); end;
我希望只有在ListView中单击复选框时才会触发此代码
解决方法
在Delphi 2009及更高版本中,您可以使用
TListView.OnItemChecked
事件来检测复选框点击. Delphi 2007没有这样的事件,在这种情况下,您需要在自己的代码中手动检测通知.我将演示一个插入器类,但还有其他方法可以做到这一点.
uses ...,CommCtrl,ComCtrls,...; type TListView = class(ComCtrls.TListView) protected procedure CNNotify(var Message: TWMNotifyLV); message CN_NOTIFY; end; .... procedure TListView.CNNotify(var Message: TWMNotifyLV); begin inherited; if Message.NMHdr.code = LVN_ITEMCHANGED then begin if (Message.NMListView.uChanged = LVIF_STATE) and ( ((Message.NMListView.uOldState and LVIS_STATEIMAGEMASK) shr 12) <> ((Message.NMListView.uNewState and LVIS_STATEIMAGEMASK) shr 12)) then begin // changing check box state will land you here end; end; end;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。