delphi - 我可以从FormCreate调用TIdTCPClient函数吗？

我不确定何时Delphi创建主窗体的子组件。

在我的TMainForm.FormCreate()中，我正在调用TIdTCPClient.Connect()和TIdTCPClient.SendCmd()。我的程序显示在Windows TAsk管理器中，但没有看到GUI。但是，如果我断开以太网电缆并启动程序，则会出现GUI。

我猜这是因为我试图在主窗体的FormCraete()方法中调用主窗体的子组件的方法。

糟糕，我忘了说-TIdTCPClient是在设计时放在窗体上的，它不是在运行时动态创建的。

任何意见？提前致谢

最佳答案

问题在于Indy正在阻止，因此会阻止Create继续进行，直到建立连接或超时为止。

您可以使用在OnCreate事件中发布到表单的自定义消息来解决此问题，这会将其延迟到显示表单为止：

const
  UM_DOCONNECTION = WM_USER + 1;

type
  TForm1=class(TForm)
     ...
  private
    procedure UmDoConnection(var Msg: TMessage); message UM_DOCONNECTION;
    ...
  end;

  implementation

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    PostMessage(Handle, UM_DOCONNECTION, 0, 0);
    // Other stuff
  end;

  procedure TForm1.UmDoConnection(var Msg: TMessage);
  begin
    IdTCPClient.Connect;
    IdTCPClient.SendCmd(...);
  end;

当然，最好的方法是将您的Indy内容移动到它自己的线程中，这样它就不会与主线程建立连接。