Nada m谩s entrar en un di谩logo me posiciono en un GET. 驴Como puedo simular un INTRO en ese GET al entrar ?
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC
Board index FiveWin para Harbour/xHarbour Simular INTRO en GET
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Francisco J. Alegr铆a P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Francisco y Cristobal, muchas gracias. Lo probar茅.
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC
Manuel, intenta esto:
Para que s贸lo funcione una vez, la primera vez que entras:
Si lo que quieres es transferir el foco a otro control nada m谩s entrar, intenta:
Otra soluci贸n ser铆a cambiar el orden de los TABSTOP en recursos o el Get de lugar en tu programa para que el foco no lo coja primero al entar en el dialogo.
Espero que te sirva.
Un saludo
oGet:bGotFocus := { || SendtMessage(oGet:hWnd, WM_KEYDOWN, VK_RETURN) }
o
oGet:bGotFocus := { || PostMessage(oGet:hWnd, WM_KEYDOWN, VK_RETURN) }Para que s贸lo funcione una vez, la primera vez que entras:
oGet:bGotFocus := { || oGet:bGotFocus := NIL, SendtMessage(oGet:hWnd, WM_KEYDOWN, VK_RETURN) }Si lo que quieres es transferir el foco a otro control nada m谩s entrar, intenta:
ON INIT oGet:bGotFocus := { || oCtrl:SetFocus() }Otra soluci贸n ser铆a cambiar el orden de los TABSTOP en recursos o el Get de lugar en tu programa para que el foco no lo coja primero al entar en el dialogo.
Espero que te sirva.
Un saludo
Peaaaaaso de foro...
FWH 2007 - xHarbour - BCC55
FWH 2007 - xHarbour - BCC55
Antol铆n, gracias.
Pero obtengo este error:
Error: Unresolved external '_HB_FUN_SENDTMESSAGE' referenced from C:\MAR\OBJ\CODIOPER.OBJ
驴Ser谩 porque estoy usando xHarbour en vez de Harbour?
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC
Hola
buenas tardes
yo uso esto directo y me funciones en x(harbour)
llama la funci贸n antes del act铆vate y listo
con esta funci贸n controlamos y podemos hacer un teclado virtual
saludos
buenas tardes
yo uso esto directo y me funciones en x(harbour)
llama la funci贸n antes del act铆vate y listo
con esta funci贸n controlamos y podemos hacer un teclado virtual
dartecla(VK_RETURN)
function DARTECLA(xx)
聽 聽keybd_event( xx, 0, 0, 0 )
聽 聽keybd_event( xx, 0, 2, 0 )
return nil
DLL static FUNCTION keybd_event( bvk AS LONG, bScan AS LONG, nFlags AS LONG, dwExtraInfo AS PTR ) AS VOID PASCAL LIB "user32.dll"saludos
Benjamin Casarrubias Moreno
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025
Manuel,
Te da error porque tienes escrito SendTMessage en vez de SendMessage?.
Saludos.
Francisco J. Alegr铆a P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Perd贸n Manuel, efectivamente es SendMessage. Mea Culpa...
Peaaaaaso de foro...
FWH 2007 - xHarbour - BCC55
FWH 2007 - xHarbour - BCC55
Can see a test sample please ? ... I not Understood How run it ...
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com