怎么样把richedit中的ctrl+v,ctrl+x,ctrl+c屏蔽掉?谢谢！
K kenwoo Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-15 #1 怎么样把richedit中的ctrl+v,ctrl+x,ctrl+c屏蔽掉?谢谢！
小 小人物 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-15 #2 procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCtrl in Shift) and ((key=88) or (key=67) or (key=86)) then key:=0; end;
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCtrl in Shift) and ((key=88) or (key=67) or (key=86)) then key:=0; end;
