当我在
NumbersOnly模式下使用它时,如何更改TEdit的默认错误消息.我的意思是这个错误：
Unacceptable character You can only type a number here
是否可以更改此消息？
解决方法
我不知道直接的方法来更改该消息的值(由Windows处理),但是您可以显示自己的消息,然后避免使用
OnKeyPress事件中的
Abort过程显示原始的Windows提示音.
检查这个样本
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(#8)的字符.