delphi - 为什么 TButton.enable 在这种情况下不会产生预期的结果？

Question

FireMonkey (Delphi XE3) 应用程序中发生以下情况。看下面的代码(这只是一个虚拟示例，用于说明问题):

procedure TForm1.Button4Click(Sender: TObject);
var
    i: Integer;
begin
    Button4.Enabled:= false; //This should gray-out the button

    // get busy for some time
    for I := 0 to 100000000000 do
    begin

    end;

    Button4.Enabled:= true;
end;

我希望 Button4 在进入“for”循环代表的繁忙操作之前变灰。尽管如此，事实并非如此。

在 OnClick 处理程序执行结束时，按钮“似乎没有对 Button4.Enabled:= false 使用react”。为什么？

我该如何解决这个问题？

这在 VCL 中运行得很好。

谢谢。

Answer 1

它没有反应，因为只有当按钮重新绘制自身时 react 才可见。仅当处理下一个 wm_Paint 消息时才会发生这种情况，但您的代码未处理消息，因此该按钮以及实际上整个表单在该循环期间保持不变。

立即修复方法是调用 Button4.Repaint，这将允许按钮更新其外观。但这并不能处理所有消息。

一个糟糕的解决方法是偶尔在循环中调用 Application.ProcessMessages，但需要调用它通常表明您做错了什么。

最后，最好的解决办法是将长时间运行的任务移至另一个线程中。启动任务时禁用该按钮，并在任务完成时启用它。