zoukankan      html  css  js  c++  java
  • 使用 IntraWeb (34)


    在异步事件中, 可以通过 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;
    


  • 相关阅读:
    设计模式学习总结系列应用实例
    【研究课题】高校特殊学生的发现及培养机制研究
    Linux下Oracle11G RAC报错:在安装oracle软件时报file not found一例
    python pro practice
    openstack python sdk list tenants get token get servers
    openstack api
    python
    git for windows
    openstack api users list get token get servers
    linux 流量监控
  • 原文地址:https://www.cnblogs.com/del/p/3806749.html
Copyright © 2011-2022 走看看