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

Question

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

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

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

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

任何意见？提前致谢

Answer 1

问题是 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 东西移到它自己的线程中，这样它就与主线程没有连接。