急!!!怎样在Richedit控件中屏蔽Ctrl+V,Ctrl+C等组合键??? 我仿照金山打字通写了一个测指法的小程序,但不知怎样在Richedit控件中屏蔽Ctrl+V,Ctrl+C等组合键???请各位大虾帮我,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在RichEdit控件的OnKeyDown事件中写如下代码:procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);beginif ssctrl in shift then if (key=ord('C')) or (key=ord('V')) then key:=0;end; 关于链表,关于画图,请高手帮帮忙! 邮件发送程序,发送失败! 请问大家:怎么用dephi语句在sql已有数据库中创建一张新表? 不知道CodeGear对Kylix有什么打算吗? TTreeNode对象的data使用问题。 cell表的问题!!帮帮俺! 救命,用TADOQuery在Informix中增加记录时说表名不在数据库中! 用tadotable增加或修改记录的问题 简单的交互式聊天系统 help,help,help... 在线等 在局域网中拷贝文件的api函数是什么?怎么用?
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssctrl in shift then
if (key=ord('C')) or (key=ord('V')) then
key:=0;
end;