postmessage发消息失败(50分)

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-27

• #1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage('Keydown!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
postmessage(edit1.Handle,wm_keydown,vk_return,1);
end;
//点击button1的时候程序卡住了，看不到Edit1KeyDown的弹出效果

 

B

bahamut8348

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-28

• #2

PostMessage(Edit1.Handle, WM_KEYDOWN, Ord('A'), 0);
不要发送回车，那样会一直触发Button1的OnClick事件

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-28

• #3

Sendmessage(edit1.Handle,wm_keydown,vk_return,1);就可以了

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-28

• #4

先让它Focus就没有问题
postmessage(edit1.Handle,WM_SETFOCUS,edit1.Handle,0);
postmessage(edit1.Handle,WM_KEYDOWN,vk_return,0);

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-15

• #5

最后一楼正解