在窗体级别，可以使用窗体的KeyPreview属性和OnKeyPress事件处理程序来完成此操作，例如：

function IsKeyPressed(const AKey : Word) : Boolean;
begin
  Result := GetKeyState(AKey) < 0;
end;

procedure TMyBaseForm.FormCreate(Sender: TObject);
begin
  inherited;
  KeyPreview := True;
end;

procedure TMyBaseForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if(IsKeyPressed(VK_DECIMAL))
  then Key := FormatSettings.DecimalSeparator;
end;

但此解决方案要求所有应用程序的窗体都有一个通用的基窗体类，并且不适用于不是从该基类继承的任何窗体/对话框(即：它也不适用于简单的InputQuery)