topic Re: Help with SendMessage API in Software Archive

Help with SendMessage API

sumitm — Wed, 09 Jan 2002 03:07:35 GMT

Hi,
I need to close a graphics window with a right mouse click option. Currently the window closes when I hot enter. I was advised by Leo quite some time back that I need to use the SendMessage API with WM_Keydown message with VK_Return as the virtual keycode. I have gotten this far but need help with the VK_Return implementation. Can anyone please guide a novice like me a little more.

Thanks

Sumit

logi=.TRUE. 
  do while(logi) 
 bret=waitonmouseevent(MOUSE$RBUTTONDOWN,keystate,ixpos,iypos) 
 if (keystate == MOUSE$KS_RBUTTON) then 
iret= Messageboxqq('Close Window ?','Mouse Action'C,MB$ICONEXCLAMATION.OR.MB$YESNO) 
 IF(IRET == MB$IDYES) then !call exit() 
    hWnd= GetHWNDQQ(5) 
 iret=Focusqq(5) 
 iret=SetActiveQQ(5) 
iret=SendMessage(hWnD,WM_Keydown,0,0) 
... 
 logi=.FALSE. 
 end if

Re: Help with SendMessage API

Jugoslav_Dujic — Wed, 09 Jan 2002 21:04:23 GMT

Should be iret=SendMessage(hWnd, WM_KEYDOWN, VK_RETURN, 0) (perhaps 1 as last argument). I don't guarantee that the method will work though.

Re: Help with SendMessage API

sumitm — Thu, 10 Jan 2002 02:31:08 GMT

Dear Jugoslav,

Thanks for your response. It defintely encouraged me to think that I was on the right path. The following worked. Thanks again

iret=SendMessage(hWnD,WM_IME_Keydown,VK_RETURN,0)