Question

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

在我的TMainForm.FormCreate()我正在调用TIdTCPClient.Connect()和TIdTCPClient.SendCmd()。我的程序显示在Windows TAsk管理器中，但我没有看到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东西移动到它自己的线程中，这样它就不会与主线程连接。

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

1 个答案: