FiveTech Software tech support forums

Dear Jimmy,

https://learn.microsoft.com/en-us/windows/win32/inputdev/wm-keydown
https://learn.microsoft.com/en-us/windows/win32/inputdev/wm-char
https://learn.microsoft.com/en-us/windows/win32/inputdev/wm-keyup

Gracias Antonio por tus sugerencias. He visto en el foro el siguiente codigo, referente a SendKey(), que tu publicaste para Fivewin: HB_FUNC( FW_SENDKEY ) { if( hb_parni( 2 ) == 0 ) keybd_event( ( BYTE ) hb_parni( 1 ), ( BYTE ) hb_parni( 2 ), KEYEVENTF_EXTENDEDKEY | 0, 0 ); else keybd_event( ( BYTE ...

Try this : **************************************************************************** * READ THE KEYBOARD **************************************************************************** *************************************************************************************************** * DESCRIPTION *...

... bChange y ::KeyChar() se ejecuta en la imagen y no en el combobox, produciéndose un indeseado scroll vertical de la imagen al pulsar las teclas KeyUp/KeyDown en el el combobox. ¿Un bug? Gracias.

In order to emulate the "@K" feature in clipper I have been adding a bGotfocus codeblock to each get like below. ::oShipCons:bGotFocus := { || ::oShipCons:PostMsg( WM_KEYDOWN, VK_HOME ), ::oShipCons:selectall(), ::oShipCons:PostMsg( WM_KEYUP ) } I think it would be better to have "@K&...

From another thread http://forums.fivetechsupport.com/viewtopic.php?p=90269#p90269 I fount the solution It works But there is a very big problem: after the phone call I have to restart the PC because the keypad locks. :? #include "Fivewin.ch" #define VK_LMENU 164 #define VK...

Alvaro,

Please try to send the two events, down and up:

PostMessage( oControl:hWnd, WM_KEYDOWN, nKeyValue, 0 )
PostMessage( oControl:hWnd, WM_KEYUP, nKeyValue, 0 )

also, you may first have to give it the focus:
oControl:SetFocus()

Disculpa, pues no había captado con precisión tu pregunta.
Creo que lo que pretendes hacer pasa por la modificación de los métodos KeyDown y KeyUp de la clase TGET. Y hasta aquí llego yo. También me gustaría saber como hacerlo.

... nCol ]:bWhen == Nil .or. ; Eval( ::aColumns[ nCol ]:bWhen, Self ) ) METHOD KeyChar( nKey, nFlags ) METHOD KeyDown( nKey, nFlags ) METHOD KeyUp( nKey, nFlags ) METHOD LButtonDown( nRowPix, nColPix, nKeyFlags ) METHOD LButtonUp( nRowPix, nColPix, nKeyFlags ) METHOD lCloseArea() INLINE If( ...

... System.Windows.Forms.PaintEventHandler(this.UserControl1_Paint); this.MouseEnter += new System.EventHandler(this.UserControl1_MouseEnter); this.KeyUp += new System.Windows.Forms.KeyEventHandler(this.UserControl1_KeyUp); this.KeyDown += new System.Windows.Forms.KeyEventHandler(this.UserControl1_KeyDown); ...

Ho ritrovato un msg di EMG sulle luci della tastiera disallineate al contenuto della status bar, che quoto: When KEYBOARD clause is used we can click with the mouse on the Num, Caps and Ins items to toggle their status. But, specifically for Num and Caps, the status change is not reflected by the ke...

ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ FiveWin for Pocket PC - March 2006 Harbour development power ³Ü ³ (c) FiveTech, 1993-2006 for Microsoft Windows Pocket PC ³Û ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ÿ ßßßßßßßßßßß...

... COPY CODE 000A:4F8E 0009EH COPY CODE 000A:502C 001AFH PASTE CODE 000A:51DC 0009AH PASTE CODE 000A:5276 0008CH DISPTEXT CODE 000A:5302 000D8H KEYUP CODE 000A:53DA 000B8H SELFILE CODE 000A:5492 00099H _SETPOS CODE 000A:552C 0014CH CUT CODE 000A:5678 000A7H CUT CODE 000A:5720 000D6H INC CODE ...

... COPY CODE 000A:4F8E 0009EH COPY CODE 000A:502C 001AFH PASTE CODE 000A:51DC 0009AH PASTE CODE 000A:5276 0008CH DISPTEXT CODE 000A:5302 000D8H KEYUP CODE 000A:53DA 000B8H SELFILE CODE 000A:5492 00099H _SETPOS CODE 000A:552C 0014CH CUT CODE 000A:5678 000A7H CUT CODE 000A:5720 000D6H INC CODE ...