在文本框中如何屏蔽CTRL+V 这个组合键?(50分)

S

small518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-12

• #1

在文本框中如何屏蔽CTRL+V 这个组合键?

 

B

bbgsgs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-12

• #2

procedure TForm1.Edit1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (key=88) then
key:=0;
end;

 

S

small518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-12

• #3

如果是通过消息呢？

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-12

• #4

继承 TEdit， 做一个新控件，
TMyEdit = Class(TEdit)
procedure WMPaste(var msg: TWMPaste);
message WM_PASTE;
end;

procedure TMyEdit.WMPPaste(var msg: TWMPaste);
begin
Inherited;
//your code here;
end;

 

H

haizhu1983

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-12

• #5

Spy++捕捉这个消息

 

S

small518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-10

• #6

多人接受答案了。