小编Yan*_*iel的帖子

以下内容发生在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.为什么？

我该如何解决它？

这在VCL中运行得很好.

谢谢.