未修正:
修正代码:
请将 FMX.StdCtrls.pas 复制到自己的工程目录下,再修改如下代码:
procedure TCustomButton.RestoreButtonState; begin {+++>}if not FStaysPressed then // 加入此行代码:修正鼠标移开按钮后 IsPressed 会变成 False, Fixed by Aone 2017.04.07 FIsPressed := False; ApplyTriggers; end;
修正后:
未修正:
修正代码:
请将 FMX.StdCtrls.pas 复制到自己的工程目录下,再修改如下代码:
procedure TCustomButton.RestoreButtonState; begin {+++>}if not FStaysPressed then // 加入此行代码:修正鼠标移开按钮后 IsPressed 会变成 False, Fixed by Aone 2017.04.07 FIsPressed := False; ApplyTriggers; end;
修正后: