使用 IntraWeb (34) - TIWAJAXNotifier

标签：class   ext   com   使用   string   os   

property OnNotify: TNotifyEvent

procedure Notify

{确保这是异步事件}
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;

使用 IntraWeb (34) - TIWAJAXNotifier,布布扣,bubuko.com

使用 IntraWeb (34) - TIWAJAXNotifier

标签：class   ext   com   使用   string   os   

原文地址：http://www.cnblogs.com/del/p/3806749.html