procedure TForm1.Button3Click(Sender: TObject);//disconnect button
begin
  if idtelnet1.Connected then
  begin
    idtelnet1.Disconnect;
    Button3.Enabled := False;
    Button1.Enabled := not Button3.Enabled;
  end;
end;    procedure TForm1.IdTelnet1Disconnected(Sender: TObject);
begin
  RichEdit1.Lines.Clear;
end;

如果是用滑鼠去點button3的話,都沒問題, 如果是用程式去自動disconnect的話,disconnect後程式就會沒有任何回應..

  .
  .
  if idtelnet1.connected then begin    //加這段 
    Sleep(2000);                       //自動disconnect後就會掛掉
    idtelnet1.Disconnect;
//   if Button3.Enabled then Button3.Click;
  end;                                 //

直接idtelnet1.disconnect or 用Button3.Click都是一樣結果... 也沒有任何錯誤訊息出現...

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.