如何更改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;

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

更新

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

Answer 2

查看VCL源代码,看起来该消息是由Windows生成的,而不是由Delphi生成的.也就是说,VCL只包含Windows中存在的功能.因此,修改消息似乎并不容易.