未修正：

 

修正代码：

请将 FMX.StdCtrls.pas 复制到自己的工程目录下，再修改如下代码：

procedure TCustomButton.RestoreButtonState;
begin
{+++>}if not FStaysPressed then // 加入此行代码：修正鼠标移开按钮后 IsPressed 会变成 False, Fixed by Aone 2017.04.07
  FIsPressed := False;
  ApplyTriggers;
end;

 

修正后：

 

官方QC：https://quality.embarcadero.com/browse/RSP-17793