Delphi TListBox OnClick / OnChange?
发布时间:2020-12-15 04:19:32 所属栏目:大数据 来源:网络整理
导读:使用TListBox获
使用TListBox获取“OnChange”类型的功能有诀窍吗?我可以子类化组件并添加属性等,然后只有当索引发生变化时才执行OnClick代码…我也可以使用表单级变量来存储当前索引,但只是想知道我是否忽略了之前的我走了一路或另一路.
解决方法
似乎除了自己实现这一点之外别无他法.你需要的是记住当前选择的项目,每当
ItemIndex 属性从代码更改或控件收到
LBN_SELCHANGE 通知(当前触发
OnClick 事件)时,您将比较您存储的项目索引与当前项目索引选中,如果它们不同,则触发您自己的OnChange事件.在插入类的代码中,它可以是:
type TListBox = class(StdCtrls.TListBox) private FItemIndex: Integer; FOnChange: TNotifyEvent; procedure CNCommand(var AMessage: TWMCommand); message CN_COMMAND; protected procedure Change; virtual; procedure SetItemIndex(const Value: Integer); override; published property OnChange: TNotifyEvent read FOnChange write FOnChange; end; implementation { TListBox } procedure TListBox.Change; begin if Assigned(FOnChange) then FOnChange(Self); end; procedure TListBox.CNCommand(var AMessage: TWMCommand); begin inherited; if (AMessage.NotifyCode = LBN_SELCHANGE) and (FItemIndex <> ItemIndex) then begin FItemIndex := ItemIndex; Change; end; end; procedure TListBox.SetItemIndex(const Value: Integer); begin inherited; if FItemIndex <> ItemIndex then begin FItemIndex := ItemIndex; Change; end; end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- Learning Perl: 1.1. Questions and Answers
- 您可以从delphi组件中删除已发布的属性,并且不会在使用该组
- delphi – 跨进程单例对象
- .net – 在更改对象的引用时,Visual Basic中的WithEvents是
- delphi – 如何在x64中使用StackAlloc?
- delphi – 使用RTTI创建的SOAP请求未完全解析为XML
- delphi – 为什么Microsoft不支持OLE DB连接到SQL Azure?
- ShowModal在VCL和Firemonkey中的使用区别
- 有没有办法在Golang中遍历一个整数范围?
- 如何在golang中解析绝对路径的相对路径?