这个过程怎样调用?(10分)

T

tt123tt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #1

过程是这样的:
procedure TForm1.Edit1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
......
.....
......
end;
我是这样调用的通不过,为什么不行,应怎样改?
Edit1KeyDown(Sender,13,'ssDouble');

 

B

bes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #2

我也有同样的问题！

 

T

tt123tt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #3

我想问题主要是在Shift: TShiftState 这个参数上不过不知应附什么值?

 

P

peng_qs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #4

var
key : Word;
begin
key := 13;
FormKeyDown(sender,Key,[ssShift]);

 

T

tt123tt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #5

上面的对了!!!