首页 > 代码库 > 使用 IntraWeb (34) - TIWAJAXNotifier
使用 IntraWeb (34) - TIWAJAXNotifier
在异步事件中, 可以通过 TIWAJAXNotifier 发出一个通知(通过其 Notify 方法), 该通知会激发其 OnNotify 事件.
这一般用在: 当一个异步事件完成后, 立即处理随后的事情.
TIWAJAXNotifier 所在单元及继承链:
IWCompExtCtrls.TIWAJAXNotifier < TIWBaseHTML40Component < TIWBaseHTMLComponent < TIWBaseComponent < TComponent < TPersistent < TObject
主要成员:
property 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;
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。