请教 onkeydown 参数传递(50分)

S

sckking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-09

• #1

Tform.eidt1keydown(sender:Tobject;var key:word;shift:Tshiftstate);
begin
if key=vk_return then
....
if key=VK_next then
...
end;
我现在想在button1的onclick事件中调用edit1中的key=vk_return,但我不知道参数怎么传递，请高手们指教小弟一下。[

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-09

• #2

procedure TForm1.Edit1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
caption := inttostr(Key);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
sendmessage(Edit1.Handle, wm_keydown, vk_return, vk_return);
end;

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-09

• #3

procedure TForm1.Button2Click(Sender: TObject);
var
Key: Word;
Shift: TShiftState;
begin
key := vk_return;
Edit1.OnKeyDown(Edit1, key, Shift);
end;

 

地

地质灾害

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-09

• #4

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1KeyDown(Edit1,VK_RETURN,[]);
end;

 

S

sckking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-09

• #5

谢谢了！