张志峰的博客

水滴石川，积少成多。

导航

2011年11月24日

Delphi 给窗体上面所有的控件都挂上一个事件处理过程华软源码

摘要： 有的时候 ,我们希望给所有的控件的某个指定的事件挂接一个自定义的事件处理程序 ,例如 ,OnContextPopup 事件 ,那么该如何做呢？请参看下面的代码 ,下面的代码会给所有有 OnContextPopu 事件的控件都挂接指定的处理程序 : private { Private declarations } procedure AssignOnContextPopupEvent; procedure OnContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); public { Public declara 阅读全文

posted @ 2011-11-24 15:09 ╰★张志峰★╮ 阅读(895) 评论(0) 推荐(0)