WindowFreeze VCL

Question

私は約10のウィンドウを持つDelphi7プロジェクトを持っています。 MainWindowは、プログラムの起動時にロードされます。しばらくすると、MainWindowはプロジェクトの別のウィンドウにアクセスしてリストビュー項目を追加し、1〜2秒ほど更新します。しかし、このウィンドウはフリーズしているように見え、開いた後はリストビューを一切表示しません。

それは私が私のメインウィンドウのOnShow手順で次のコマンドがある場合に動作します：

SecondWindow.Show; 
SecondWindow.Close; 

をそれは問題なく動作しますが、それは専門外のようです。私はどのように私は表示されずにウィンドウを描画することができる任意のアイデア？

EDIT：CODE（私はIndy9を使用）

procedure TMainWindow.ServerSocketExecute(AThread: TIdPeerThread); 
begin 
/.... 
if Buffer = 'additem' then begin 
    Window2.ListView1.Items.Add; 
    Exit; 
    // ..... 
end; 
end; 

それです。私はWindow2からすべてのタイマーを削除しましたが、まだフリーズするようです。 アイテムが追加された場合、または2回目のWindowsを初めて開こうとすると、メインウィンドウが直ちにフリーズします。

Answer 1

問題は、メインのGUIスレッドの外部、つまりTMainWindow.ServerSocketExecuteからVCLメソッドを呼び出していることです。このイベントは、ワーカースレッドで実行されます。ワーカースレッドからVCL/GUIコードを呼び出すことは、単純にゲームのルールに反します。すべてのVCLコードは、GUIのメインスレッドでを実行する必要があります。

したがって、すべてのVCL/GUIコードがGUIスレッドで実行されるようにして、問題を解決してください。これを実現するには、TIdPeerThread.Synchronize（）メソッド、またはTIdSyncまたはTIdNotifyクラスを使用します。

_{私が知らなかった詳細を提供してくれた@Remyに感謝します。}