使用 IntraWeb (34) - TIWAJAXNotifier
16lz
2021-04-30
使用 IntraWeb (34) - TIWAJAXNotifier
在异步事件中, 可以通过 TIWAJAXNotifier 发出一个通知(通过其 Notify 方法), 该通知会激发其 OnNotify 事件.
这一般用在: 当一个异步事件完成后, 立即处理随后的事情.
TIWAJAXNotifier 所在单元及继承链:
IWCompExtCtrls.TIWAJAXNotifier < TIWBaseHTML40Component < TIWBaseHTMLComponent < TIWBaseComponent < TComponent < TPersistent < TObject
主要成员:
property SendNotification: Booleanproperty OnNotify: TNotifyEventprocedure 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;
更多相关文章
- 关于动态通知类的推拉模式
- 电商快递物流信息短信通知API案例代码-快递100
- 解决redis消息通知造成大量redisMessageListenerContainer线程
- audio通知栏切换歌曲停止播放,怎么破
- 支付宝即时到账接口开发 - DEMO讲解与源码分享
- Elasticsearch 之 elastalert监控告警通知
- Elasticsearch 之 监控告警通知
- 原来这才是Spring Boot使用AOP的正确姿势
- 安卓高级组件