如何更改 TEdit 默认错误消息（NumbersOnly 模式）？

Question

当我在 NumbersOnly 中使用 TEdit 时，如何更改它的默认错误消息模式。我的意思是这个错误：

不可接受的字符您只能在此处输入数字

是否可以更改此消息？

Answer 1

我不知道更改该消息的值（由 Windows 处理）的直接方法，但您可以使用 Abort 过程中的 OnKeyPress 事件。

检查此示例

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (CharInSet(Key,['0'..'9',#8,#9]))  then      
  begin
    ShowHintMessage('Only numbers please');//you must write this function 
    Abort;//this will prevent which the original windows hint was shown
  end;
end;

您必须知道此代码将阻止在控件上执行剪贴板操作。

更新

I 更新代码以允许使用 Tab(#9) 和 Back space(#8) 字符。

Answer 2

查看 VCL 源代码，看起来该消息是由 Windows 生成的，而不是由 Delphi 生成的。也就是说，VCL 仅包装了 Windows 中存在的功能。所以看来修改这条消息并不容易。