标签:IntraWeb TIWForm1 OnNotify TObject 34 Notify TIWAJAXNotifier procedure
使用 IntraWeb (34) - TIWAJAXNotifier
在异步事件中, 可以通过 TIWAJAXNotifier 发出一个通知(通过其 Notify 方法), 该通知会激发其 OnNotify 事件.
这一般用在: 当一个异步事件完成后, 立即处理随后的事情.
TIWAJAXNotifier 所在单元及继承链:
IWCompExtCtrls.TIWAJAXNotifier < TIWBaseHTML40Component < TIWBaseHTMLComponent < TIWBaseComponent < TComponent < TPersistent < TObject
主要成员:
property SendNotification: Boolean property OnNotify: TNotifyEvent procedure Notify
测试(需要 1 个 IWButton、4 个 IWLabel、3 个 IWAJAXNotifier):
{确保这是异步事件} procedure TIWForm1.IWButton1AsyncClick(Sender: TObject; EventParams: TStringList); begin IWLabel1.Caption := TimeToStr(Time); IWAJAXNotifier1.Notify; //OnAsyncClick 执行到最后, 让 IWAJAXNotifier1 发出通知 end; {IWAJAXNotifier1.OnNotify} procedure TIWForm1.IWAJAXNotifier1Notify(Sender: TObject); begin Sleep(1000); IWLabel2.Caption := TimeToStr(Time); IWAJAXNotifier2.Notify; //继续让 IWAJAXNotifier2 发出通知 end; {IWAJAXNotifier2.OnNotify} procedure TIWForm1.IWAJAXNotifier2Notify(Sender: TObject); begin Sleep(1000); IWLabel3.Caption := TimeToStr(Time); IWAJAXNotifier3.Notify; //继续让 IWAJAXNotifier3 发出通知 end; {IWAJAXNotifier3.OnNotify} procedure TIWForm1.IWAJAXNotifier3Notify(Sender: TObject); begin Sleep(1000); IWLabel4.Caption := TimeToStr(Time); end;
标签:IntraWeb,TIWForm1,OnNotify,TObject,34,Notify,TIWAJAXNotifier,procedure 来源: https://blog.51cto.com/u_14617575/2744236
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。