如果是Edit控件,倒是可以屏蔽,比如下面的代码(Application.OnMessage):
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_KEYDOWN) then
begin
if (Msg.hwnd = Edit1.Handle) and (Msg.wParam = VK_DELETE) then
begin
Edit1.Perform(Msg.message, Msg.wParam, Msg.lParam);
Handled := True;
end;
end;
end;