深刻理解TNotifyEvent

最新推荐文章于 2025-12-03 14:50:56 发布
转载 最新推荐文章于 2025-12-03 14:50:56 发布 · 1.8k 阅读 · 1

本文介绍了一种在Delphi中处理按钮点击事件的方法。通过定义一个特定的事件处理函数，并将其绑定到按钮的OnClick属性上，实现了点击按钮时显示发送者类名的功能。
function OnButton1Click(Instance, Sender: TObject);
begin
  showMessage(Instance.ClassName);
  showMessage(Sender.ClassName);
end;

var event: TNotifyEvent;

TMethod(event).Data := Button1;
TMethod(event).Code := @OnButton1Click;
Button1.OnClick := event;
DELPHI自定义事件（本质就是构建自定义类）、运行时标准化事件调用TNotifyEvent及普通的标准化事件传递TObjectClick(Sender)
pulledup的博客
03-03 2617
DELPHI自定义事件（本质就是构建自定义类）、运行时标准化事件调用TNotifyEvent及普通的标准化事件传递TObjectClick(Sender) 一、自定义事件（本质就是构建自定义类） 参考： http://docwiki.embarcadero.com/RADStudio/Rio/en/Creating_Events_-_Overview http://docwiki.emba...
精选资源
Delphi:主窗体与浮动窗体间通过自定义事件(TNotifyEvent)联动
03-03
在Delphi中，TNotifyEvent是一个代表无参数和无返回值的过程的类型。它经常用作回调机制，用于通知对象或组件某个事件已发生。 本范例通过自定义事件(TNotifyEvent)完成主窗体与浮动窗体间的消息联动。使用者可以...
Delphi TNotifyEvent是Delphi中基本通知事件的类型
alongwilliam的专栏
01-12 2395
TNotifyEvent是Delphi中基本通知事件的类型,定义为：      type          TNotifyEvent   =   procedure(Sender:   TObject)   of   object;      它除了发送者外不带任何其他信息，只用作通知程序某个事件已经发生的用途。   可以自己定义许多类似的类型，用来处理事件；           
Delphi多线程的OnTerminate属性（附加一个关于临界区线程同步的例子）
weixin_30808575的博客
08-04 264
　　首先看TThread源码中关于OnTerminate的代码： public .... property OnTerminate: TNotifyEvent read FOnTerminate write FOnTerminate; ... end; 　　再看Delphi自带的帮助手册中对于OnTerminate的解释： Occurs ...
Delphi自定义事件TNotifyEvent用法
weixin_30773135的博客
05-01 382
自定义事件定义的方法和定义属性差不多，只是类型时TNotifyEvent。　　TNotifyEvent是默认事件，其定义为：　　TNotifyEvent = procedure(Sender: TObject)示例一(仅列出相当代码)：type TParent=class(TObject) private FTimeOut:TNotifyEvent;//事件的方法指...
tnotifyevent
weixin_30477293的博客
05-16 173
TNotifyEvent是Delphi中基本通知事件的类型,定义为： type TNotifyEvent = procedure(Sender: TObject) of object; 它除了发送者外不带任何其他信息，只用作通知程序某个事件已经发生的用途。 可以自己定义许多类似的类型，用来处理事件； ...
TNotifyEvent
09-06
TNotifyEvent 是一个 Delphi 编程语言中的事件类型，用于处理通知事件。在 Delphi 中，事件是一种机制，可以将特定的代码与某个特定的事件关联起来。TNotifyEvent 是一个预定义的事件类型，它没有任何参数和返回值。...
62、深入理解事件创建：原理、实现与自定义
最新发布
ii567的博客
12-03 17
本文深入探讨了软件开发中事件的原理、实现与自定义，涵盖事件的基本概念、标准事件的使用、自定义事件的创建流程及实践案例。通过理论讲解与代码示例，帮助开发者理解事件作为委托机制在组件通信与行为定制中的核心作用，并提供了性能优化建议和设计模式应用，适用于Kylix等可视化开发环境下的组件开发。
//--------------------------------------------------------------------------- #ifndef MyTrayIconH #define MyTrayIconH //--------------------------------------------------------------------------- #include <SysUtils.hpp> #include <Classes.hpp> #include <System.hpp> #include <Controls.hpp> #include <Forms.hpp> #include <Extctrls.hpp> #include <ShellAPI.hpp> #include <StdLib.h> //--------------------------------------------------------------------------- #define WM_SYSTEM_MY_TRAY_NOTIFY (WM_USER + 1) namespace my_TrayIcon{ enum TMyTrayIconMessage {imClick, imDoubleClick, imMouseDown, imMouseUp, imLeftClickUp, imLeftDoubleClick, imRightClickUp, imRightDoubleClick, imNone}; } using namespace my_TrayIcon; class PACKAGE TMyTrayIcon : public TComponent { private: TNotifyIconDataW FData; bool FIsClicked; TIcon *FIcon; TImageList* FIconList; TPopupMenu* FPopupMenu; TTimer *FTimer; UnicodeString FHint; int FIconIndex; bool FVisible; bool FHide; bool FAnimate; TMyTrayIconMessage FAppRestore; TMyTrayIconMessage FPopupMenuShow; TWindowHook FApplicationHook; TNotifyEvent FOnMinimize; TNotifyEvent FOnRestore; TMouseMoveEvent FOnMouseMove; TMouseMoveEvent FOnMouseExit; TMouseMoveEvent FOnMouseEnter; TNotifyEvent FOnClick; TNotifyEvent FOnDblClick; TMouseEvent FOnMouseDown; TMouseEvent FOnMouseUp; TNotifyEvent FOnAnimate; TNotifyEvent FOnCreate; TNotifyEvent FOnDestroy; TNotifyEvent FOnActivate; TNotifyEvent FOnDeactivate; void __fastcall SetHint(String Hint); void __fastcall SetHide(bool Value); int __fastcall GetAnimateInterval(); void __fastcall SetAnimateInterval(int Value); bool __fastcall GetAnimate(); void __fastcall SetAnimate(bool Value); void __fastcall EndSession(); TShiftState ShiftState(); protected: virtual void __fastcall SetVisible(bool Value); virtual void __fastcall DoMessage(TMessage &Message); virtual void __fastcall DoClick(); virtual void __fastcall DoDblClick(); virtual void __fastcall DoMouseMove(TShiftState Shift, int X, int Y); virtual void __fastcall DoMouseDown(TMouseButton Button, TShiftState Shift, int X, int Y); virtual void __fastcall DoMouseUp(TMouseButton Button, TShiftState Shift, int X, int Y); virtual void __fastcall DoOnAnimate(TObject *Sender); virtual void __fastcall Notification(TComponent *AComponent, TOperation Operation); bool __fastcall ApplicationHookProc(TMessage &Message); virtual void __fastcall Loaded(); __property TNotifyIconDataW Data = {read=FData}; public: __fastcall TMyTrayIcon(TComponent* Owner); __fastcall ~TMyTrayIcon(); virtual void __fastcall Minimize(); virtual void __fastcall Restore(); virtual void __fastcall Update(); virtual void __fastcall ShowMenu(); virtual void __fastcall SetIconIndex(int Value); virtual void __fastcall SetDefaultIcon(); HWND __fastcall GetHandle(); __published: // Properties __property bool Visible = {read=FVisible,write=SetVisible,default=false}; __property UnicodeString Hint = {read=FHint,write=SetHint}; __property TPopupMenu* PopupMenu = {read=FPopupMenu,write=FPopupMenu}; __property bool Hide = {read=FHide,write=SetHide}; __property TMyTrayIconMessage RestoreOn = {read=FAppRestore,write=FAppRestore}; __property TMyTrayIconMessage PopupMenuOn = {read=FPopupMenuShow,write=FPopupMenuShow}; __property TImageList* Icons = {read=FIconList,write=FIconList}; __property int IconIndex = {read=FIconIndex,write=SetIconIndex,default=0}; __property int AnimateInterval = {read=GetAnimateInterval,write=SetAnimateInterval,default=1000}; __property bool Animate = {read=GetAnimate,write=SetAnimate,default=false}; __property bool Handle = {read=GetHandle}; // Events __property TNotifyEvent OnMinimize = {read=FOnMinimize,write=FOnMinimize}; __property TNotifyEvent OnRestore = {read=FOnRestore,write=FOnRestore}; __property TNotifyEvent OnClick = {read=FOnClick,write=FOnClick}; __property TMouseMoveEvent OnMouseEnter = {read=FOnMouseEnter,write=FOnMouseEnter}; __property TMouseMoveEvent OnMouseExit = {read=FOnMouseExit,write=FOnMouseExit}; __property TMouseMoveEvent OnMouseMove = {read=FOnMouseMove,write=FOnMouseMove}; __property TMouseEvent OnMouseUp = {read=FOnMouseUp,write=FOnMouseUp}; __property TMouseEvent OnMouseDown = {read=FOnMouseDown,write=FOnMouseDown}; __property TNotifyEvent OnAnimate = {read=FOnAnimate,write=FOnAnimate}; __property TNotifyEvent OnCreate = {read=FOnCreate,write=FOnCreate}; __property TNotifyEvent OnDestroy = {read=FOnDestroy,write=FOnDestroy}; __property TNotifyEvent OnActivate = {read=FOnActivate,write=FOnActivate}; __property TNotifyEvent OnDeactivate = {read=FOnDeactivate,write=FOnDeactivate}; }; //--------------------------------------------------------------------------- #endif 有什么问题
07-22
我们正在处理的是在C++ Builder中实现托盘图标时调用Shell_NotifyIconA失败的问题。结合之前的讨论，我们知道失败的原因可能是多方面的，包括字符集不匹配、结构体大小设置错误、以及系统启动时调用时机不当等。...
什么是TNotifyEvent
sdjnjdxc的专栏
05-23 2324
TNotifyEvent是Delphi中基本通知事件的类型,定义为：     type         TNotifyEvent   =   procedure(Sender:   TObject)   of   object;     它除了发送者外不带任何其他信息，只用作通知程序某个事件已经发生的用途。  可以自己定义许多类似的类型，用来处理事件；           TMyNotify
TNotifyEvent自定义消息
chinayu2007的专栏
03-19 798
两种不同的事件调用方式: class myTest :public TObject { private: TNotifyEvent Ftime;//事件指针1,类似C#中的委托,固定格式 protected: void __declspec(dynamic) DoEvent();//关联事件 public: myTest(){} ...
Delphi:对TNotifyEvent的理解
weixin_34059951的博客
03-10 337
type TNotifyEvent = procedure (Sender: TObject) of object;     在Delphi中事件也是一个类，类型就是事件类型，不同的事件属于不同的类。TNotifyEvent就是用的最广的一个事件类型，在代码中可以把一个过程赋给事件。 type    TMyProc = procedure(Sender: TObject); //声明函数类型 ...
delphi自定义事件处理 TNotifyEvent
wangzlzy的专栏
07-30 1181
为什么我们点击按钮，就会执行按钮的onclick事件？这个事件是怎么和我们自己的代码关联起来的。相信很多人都有这个疑问。那么我们就通过一个自定义事件来了解这里面得运行原理。以乘法运算来显示，如果乘数大于100，就提示用户，太大了。这个事件用自定义事件定义。 大家先看一下最终效果，       我添加了三个文本框，一个按钮，当第一或者第二个文本框的数>100时，点求积按钮，提示Too Big 对话
Delphi中的线程类
javazhuanzai的专栏
02-01 428
====================================================== 注：本文源代码点此下载 ====================================================== 文章来源: http://liukun966123.my.gsdn.net/2004/10/22/4797/ delphi中的线程类 转贴
Delphi 7 定义你自己的事件
无幻
04-26 9325
定义新的事件完全是比较少见。然而，当一个组件介绍行为是完全不同于任何其他组件不同，所以你需要为它定义一个事件。
用Delphi编写自己的可视化控件
javazhuanzai的专栏
01-16 509
====================================================== 注：本文源代码点此下载 ====================================================== 可视化控件(visual component)实际上就是一个类(class),要编写一个类,可以直接在*.pas文件中编写。但是要编写控件,则必须
delphi多线程
houyichong的专栏
01-10 6965
   Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的目的在于对此作一个补充。    线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程，即所谓的主线程。同时还可以有多个子线
FHidCtrl关于设备的属性只有下面几个： property NumCheckedlnDevices: Integer: property NumCheckedOutDevices: Integer: property NumUnpluggedDevices: Integer: property OnDeviceChange: TNotifyEvent: property OnDeviceData: TvHidDataEvent; property OnDeviceUnplug: TvHidUnplugEvent; property OnDeviceDataError: TvHidDataErrorEvent; 没有什么 FirstDevice
09-22
我深刻理解之前的解决方案仍然存在误解，对您的问题造成了困扰，在此诚恳致歉。根据您明确指出的属性列表，我将提供完全符合TJvHidDeviceController实际属性的正确实现方案。 ### 基于实际属性的正确实现方案 ```...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值