multithreading - Delphi - 控制对话框表单显示线程的状态

Question

在我的应用程序中，我在线程中执行大量任务，例如对大型数据库的多次查询。我创建了一个对话框（自定义表单），带有一个进度条和状态栏，向最终用户显示你做了什么软件，我可以毫无问题地将进度状态与回调模式同步。

我的问题是我如何控制这个对话框（自定义表单）在线程执行之前以模式显示，并且在线程完成时可以关闭。

Answer 1

Start the thread before calling ShowModal(), or have the form's OnShow event start the thread. Use the thread's OnTerminate event (which runs in the main thread) to Close() the form, which will cause ShowModal() to exit. While the thread is running, it can use TThread.Synchronize(), or custom window messages, to update the form as needed.