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;
    


  • 相关阅读:
    图文讲解 sqlserver 2000 评测版 数据库过期 的解决方法
    SUSE shell环境语言设置
    Sleep Sort (休眠排序)
    骨干网…
    Linux下随机数
    爱吃苹果的与喜欢篮球的没必要非得达成一致~
    复杂的中国网络.....
    blog迁来迁去的......
    关于application/xwwwformurlencoded的说明
    The Art of Unix Programming
  • 原文地址:https://www.cnblogs.com/del/p/3806749.html
Copyright © 2011-2022 走看看