使用 IntraWeb (34)

在異步事件中, 可以通過 TIWAJAXNotifier 發出一個通知(通過其 Notify 方法), 該通知會激發其 OnNotify 事件.

這一般用在: 當一個異步事件完成後, 立即處理隨後的事情.

---

TIWAJAXNotifier 所在單元及繼承鏈:
IWCompExtCtrls.TIWAJAXNotifier < TIWBaseHTML40Component < TIWBaseHTMLComponent < TIWBaseComponent < TComponent < TPersistent < TObject

主要成員:

---

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;

---