抓狂小白的程式筆記

案例是我想在IdTCPServerExecute 事件內 點擊一個按鈕

直接寫Click會沒有反應

需要使用TIdSync解決 解法如下

  TServerSync = class(TIdSync)
  protected
    FXBMenuItem: TXBMenuItem;
    procedure DoSynchronize; override;
  public
    constructor Create(aXBMenuItem: TXBMenuItem); overload;
  end;

{ TServerSync }

constructor TServerSync.Create(aXBMenuItem: TXBMenuItem);
begin
  inherited Create;
  FXBMenuItem := aXBMenuItem;
end;

procedure TServerSync.DoSynchronize;
begin
  inherited;
  FXBMenuItem.Click;
end;

//Execute事件內

      Sync := TServerSync.Create(aXBMI);
      try
        Sync.Synchronize;
      finally
        Sync.Free;
      end;