说明：Delphi组件制作技术，讲解组件Event的设置方法， QuereEventButton.pas中就是这个组件。 核心技术：TQuereEventButton，inherited click; Google搜索：if Assigned(FOnShowMsg) then FOnShowMsg(Self, Result);,RegisterComponents('