FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Simular INTRO en GET
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Simular INTRO en GET
Posted: Sat Feb 22, 2014 06:45 PM

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 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Simular INTRO en GET
Posted: Sat Feb 22, 2014 08:08 PM
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
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Simular INTRO en GET
Posted: Sun Feb 23, 2014 04:42 AM

Hola, tambien esto podr铆a servirte:

viewtopic.php?f=6t=13224hilit=simular+enter#p67434

&&

Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: Simular INTRO en GET
Posted: Sun Feb 23, 2014 01:04 PM

Francisco y Cristobal, muchas gracias. Lo probar茅.

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Posts: 498
Joined: Thu May 10, 2007 08:30 PM
Re: Simular INTRO en GET
Posted: Tue Feb 25, 2014 09:31 AM
Manuel, intenta esto:
Code (fw): Select all Collapse
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:
Code (fw): Select all Collapse
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:
Code (fw): Select all Collapse
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
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: Simular INTRO en GET
Posted: Tue Feb 25, 2014 09:33 PM

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 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Posts: 120
Joined: Wed Mar 11, 2009 07:32 PM
Re: Simular INTRO en GET
Posted: Tue Feb 25, 2014 09:59 PM
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

Code (fw): Select all Collapse
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
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Simular INTRO en GET
Posted: Tue Feb 25, 2014 10:05 PM

Manuel,
Te da error porque tienes escrito SendTMessage en vez de SendMessage?.
Saludos.

Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 498
Joined: Thu May 10, 2007 08:30 PM
Re: Simular INTRO en GET
Posted: Thu Feb 27, 2014 07:32 AM
Perd贸n Manuel, efectivamente es SendMessage. Mea Culpa...
Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Simular INTRO en GET
Posted: Fri Feb 28, 2014 07:23 AM

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

Continue the discussion