TTouchKeyboard允许覆盖用于按钮的类。您可以从TKeyboardButton派生，覆盖Paint方法，当按钮State是dsPressed时跳过inherited调用。

type
  TMyKeyboardButton = class(TKeyboardButton)
  public
    procedure Paint(Canvas: TCustomCanvas = nil); override;
  end;

procedure TMyKeyboardButton.Paint(Canvas: TCustomCanvas);
begin
  if State <> TDrawState.dsPressed then
    inherited;
end;

要使用该类，请将其分配给keyboards DefaultButtonClass属性。

TouchKeyboard1.DefaultButtonClass := TMyKeyboardButton;

您可能需要切换其Layout属性来触发按钮的重新构建。