首页 > 解决方案 > 如何在 Delphi/Firemonkey 中破坏 ITask

问题描述

我使用以下块:

TTask.Run(procedure
begin
  TThread.Synchronize(nil, procedure
  begin
    loader.Visible := true;
  end);

  ... SQL SELECT

  TThread.Synchronize(nil, procedure
  begin
    loader.Visible := false;
  end);
end);

一般来说,一切都很好。当我在执行 SELECT 过程时关闭表单时会出现问题。当我重新打开此表单时,加载程序处于活动状态,但 SQL 函数不再执行。

如何在关闭表格之前完成所有任务?

标签: delphifiremonkey

解决方案


推荐阅读