如何将数字键盘点键转换为小数分隔符?

在表单级别,可以使用表单的 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 任一)