请问如何屏蔽DBGrid单元格中的复制(Ctrl-C)和粘贴(Ctrl-V)?

[jiaxianglei]

rt

[jiaxianglei]

我把DBGrid的鼠标右键的复制和粘贴屏蔽了,可是键盘上的Ctrl-C和Ctrl-V不知怎么屏蔽?

[jiaxianglei]

因为里面有单价\数量和金额,它们只能存数值型,如果用户把非数值型复制进去,那么在保存时就会出错.

[xinyu7737]

不知如何控制,up

[Heyongfeng]

利用OnKeyPress事件
procedure Tform1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['0','1','2','3','4','5','6','7','8','9'])or(key=#8) then
else key:=#0;
end;

[王集鹄]

//窗体上放一个ApplicationEvents控件，OnMessage事件代码如下：
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if GetParent(Msg.hwnd) <> DBGrid1.Handle then Exit;
case Msg.message of
WM_KEYDOWN:
begin
case Msg.wParam of
Ord('C'), Ord('V'): Handled := ssCtrl in KeyDataToShiftState(Msg.lParam);
end;
end;
end;
end;

[liuhelin]

为啥要屏蔽？
复制屏幕是不是也得屏蔽啊