未修正:
修正代碼:
請將 FMX.StdCtrls.pas 復制到自己的工程目錄下,再修改如下代碼:
procedure TCustomButton.RestoreButtonState; begin {+++>}if not FStaysPressed then // 加入此行代碼:修正鼠標移開按鈕後 IsPressed 會變成 False, Fixed by Aone 2017.04.07 FIsPressed := False; ApplyTriggers; end;
修正後: