delphi - 如何更改 TEdit 默认错误消息(NumbersOnly 模式)？

Question

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

Unacceptable character You can only type a number here

可以更改此消息吗？

Answer 1

我不知道更改该消息的值(由 Windows 处理)的直接方法，但您可以使用 Abort 显示您自己的消息，然后避免显示原始的 Windows 提示气球。 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;

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

更新

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