接收没什么任何问题
procedure MM(var MSG:TMessage);message WM_KEYDOWN;
procedure TDemo.MM(var MSG: TMessage);
begin
ShowMessage('123');
end;
procedure TDemo.SpeedButton1Click(Sender: TObject);
begin
PostMessage(Handle,WM_KEYDOWN,VK_RETURN,0);
end;
好像WM_CHAR跟WM_KEYDOWN没有什么必然联系!
你直接发送Keydown不就完了吗?PostMessage(XXX,WM_KEYDOWN,VK_RETURN,0);