Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Teclado touchscreen (https://www.clubdelphi.com/foros/showthread.php?t=50764)

federicorl 28-11-2007 00:11:01

Teclado touchscreen
 
estoy trabajando con una aplicacion en touch screen que no va a presisar de teclado y mouse, asi que necesito un tecladito virtual que se pueda activar con los dedos desde el monitor, pero que las teclas que se pulsen se capturen en la aplicacion activa en primer plano, por ejemplo que al tocar la letra "A" esta se capture en Word

solo denme un buen tip que del resto yo me encargo

de antemano gracias les mando un saludo afectuoso

juanelo 28-11-2007 00:15:57

Que tal,
Se me ocurre que tu teclado virtual lo puedes implementar con un formolario y por cada letra y número que necesites pues lo hagas corresponder con un boton cuya función sea precisamente mandar el caracter al editor que decidas.
Saludos

federicorl 28-11-2007 06:22:19

casi, casi pero
 
Cita:

Empezado por juanelo (Mensaje 248846)
Que tal,
Se me ocurre que tu teclado virtual lo puedes implementar con un formolario y por cada letra y número que necesites pues lo hagas corresponder con un boton cuya función sea precisamente mandar el caracter al editor que decidas.
Saludos

si la idea es hacer lo a travez de un formulario, pero como hago que lo que se capture aqui sea como usar el teclado y afecte a la aplicacion que este activa en el windows?

juanelo 28-11-2007 16:46:18

Cita:

Empezado por federicorl (Mensaje 248909)
si la idea es hacer lo a travez de un formulario, pero como hago que lo que se capture aqui sea como usar el teclado y afecte a la aplicacion que este activa en el windows?

Pues lo que se me ocurre es que uses mensajes a la aplicacion activa o que decidas, es decir, localizas la ventana a la cual quieres escribir y le mandas el mensaje correpondiente, para eso tienes que localiza la ventana que deseas (FindWindowEx) y luego mandarle mensajes (SendMessage,SendNotifyMessage).
Saludos

federicorl 28-11-2007 21:13:07

ya vamos avanzando, falta que sea latinoamericano
 
ya estoy logrando algo con el notepad, gracias a ustedes amigos foristas

Procedure TFrm_Teclado.SendKeys(Keys: String);
Var
manejador : THandle;
h: HWND;
Begin
h := FindWindow('Notepad', nil);
if h = 0 then ShowMessage('No se encontro la Aplicacion')
else
begin
SetForegroundWindow(h);
If Keys = 'Enter' then
PostKeyEx32(VK_RETURN, [], False)
Else If Keys = 'Mayus' then
PostKeyEx32(VK_CAPITAL, [], False)
Else If Keys = 'Tab' then
PostKeyEx32(VK_TAB, [], False)
Else If Keys = 'Back' then
PostKeyEx32(VK_BACK, [], False)
Else If Keys = 'Deci' then
PostKeyEx32(VK_DECIMAL, [], False)
Else If Keys = 'Guion' then
PostKeyEx32(VK_SUBTRACT, [], False)
Else If Keys = 'Ñ' then
PostKeyEx32(164, [], False)
Else
PostKeyEx32(Ord(elcorrecto(Keys)), [], False); // simulamos la presión de la tecla Enviada
End
end;

ya envia los teclazos pulsados al notepad pero con el problema de que no he podido enviar ni la eñe ni la coma en el codigo anterior intente hasta enviar el ascii pero no funciono

este codigo lo encontre en otros hilos del foro y es el que estoy usando:

procedure TFrm_Teclado.PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);
{************************************************************
* Procedure PostKeyEx32
*
* Parameters:
* key : virtual keycode of the key to send. For printable
* keys this is simply the ANSI code (Ord(character)).
* shift : state of the modifier keys. This is a set, so you
* can set several of these keys (shift, control, alt,
* mouse buttons) in tandem. The TShiftState type is
* declared in the Classes Unit.
* specialkey: normally this should be False. Set it to True to
* specify a key on the numeric keypad, for example.
* Description:
* Uses keybd_event to manufacture a series of key events matching
* the passed parameters. The events go to the control with focus.
* Note that for characters key is always the upper-case version of
* the character. Sending without any modifier keys will result in
* a lower-case character, sending it with [ssShift] will result
* in an upper-case character!
*Created: 17.7.98 by P. Below
************************************************************}
Type
TShiftKeyInfo = Record
shift: Byte;
vkey : Byte;
End;
byteset = Set of 0..7;
Const
shiftkeys: Array [1..3] of TShiftKeyInfo =
((shift: Ord(ssCtrl); vkey: VK_CONTROL ),
(shift: Ord(ssShift); vkey: VK_SHIFT ),
(shift: Ord(ssAlt); vkey: VK_MENU ));
Var
flag: DWORD;
bShift: ByteSet absolute shift;
i: Integer;
Begin
For i := 1 To 3 Do Begin
If shiftkeys[i].shift In bShift Then
keybd_event( shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
End; { For }
If specialkey Then
flag := KEYEVENTF_EXTENDEDKEY
Else
flag := 0;
keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );
flag := flag or KEYEVENTF_KEYUP;
keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );
For i := 3 DownTo 1 Do Begin
If shiftkeys[i].shift In bShift Then
keybd_event( shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), KEYEVENTF_KEYUP, 0);
End; { For }
End; { PostKeyEx32 }

alguna idea de como poder mandar la coma, la Ñ y demas caracteres de teclado latinoamericano?

delphi.com.ar 28-11-2007 23:57:20

Supongo que no te sirve el teclado virtual de windows?
Se me ocurre algo, pero aqui no tengo una Pc para probarlo: create una ventana con el tecladito, pero que esta ventana no pueda recibir foco, entonces solo tienes que usar la funcion ketbd_event que enviara la tecla a donde se encuentre el foco.

PD: como curiosidad este mensaje lo escribi desde un teclado touch ;P

Saludos!

José Luis Garcí 29-11-2007 10:13:12

Con tu permiso federicorl pongo el código planteado en formato más legible


Código Delphi [-]
Procedure TFrm_Teclado.SendKeys(Keys: String);
Var
manejador : THandle;
h: HWND;
Begin
h := FindWindow('Notepad', nil);
if h = 0 then ShowMessage('No se encontro la Aplicacion')
else
begin
SetForegroundWindow(h);
If Keys = 'Enter' then
PostKeyEx32(VK_RETURN, [], False)
Else If Keys = 'Mayus' then
PostKeyEx32(VK_CAPITAL, [], False)
Else If Keys = 'Tab' then
PostKeyEx32(VK_TAB, [], False)
Else If Keys = 'Back' then
PostKeyEx32(VK_BACK, [], False)
Else If Keys = 'Deci' then
PostKeyEx32(VK_DECIMAL, [], False)
Else If Keys = 'Guion' then
PostKeyEx32(VK_SUBTRACT, [], False)
Else If Keys = 'Ñ' then
PostKeyEx32(164, [], False)
Else
PostKeyEx32(Ord(elcorrecto(Keys)), [], False); // simulamos la presión de la tecla Enviada
End
end;

ya envia los teclazos pulsados al notepad pero con el problema de que no he podido enviar ni la eñe ni la coma en el codigo anterior intente hasta enviar el ascii pero no funciono

este codigo lo encontre en otros hilos del foro y es el que estoy usando:

procedure TFrm_Teclado.PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);
{************************************************************
* Procedure PostKeyEx32
*
* Parameters:
* key : virtual keycode of the key to send. For printable
* keys this is simply the ANSI code (Ord(character)).
* shift : state of the modifier keys. This is a set, so you
* can set several of these keys (shift, control, alt,
* mouse buttons) in tandem. The TShiftState type is
* declared in the Classes Unit.
* specialkey: normally this should be False. Set it to True to
* specify a key on the numeric keypad, for example.
* Description:
* Uses keybd_event to manufacture a series of key events matching
* the passed parameters. The events go to the control with focus.
* Note that for characters key is always the upper-case version of
* the character. Sending without any modifier keys will result in
* a lower-case character, sending it with [ssShift] will result
* in an upper-case character!
*Created: 17.7.98 by P. Below
************************************************************}
Type
TShiftKeyInfo = Record
shift: Byte;
vkey : Byte;
End;
byteset = Set of 0..7;
Const
shiftkeys: Array [1..3] of TShiftKeyInfo =
((shift: Ord(ssCtrl); vkey: VK_CONTROL ),
(shift: Ord(ssShift); vkey: VK_SHIFT ),
(shift: Ord(ssAlt); vkey: VK_MENU ));
Var
flag: DWORD;
bShift: ByteSet absolute shift;
i: Integer;
Begin
For i := 1 To 3 Do Begin
If shiftkeys[i].shift In bShift Then
keybd_event( shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
End; { For }
If specialkey Then
flag := KEYEVENTF_EXTENDEDKEY
Else
flag := 0;
keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );
flag := flag or KEYEVENTF_KEYUP;
keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );
For i := 3 DownTo 1 Do Begin
If shiftkeys[i].shift In bShift Then
keybd_event( shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), KEYEVENTF_KEYUP, 0);
End; { For }
End; { PostKeyEx32 }


Comentarte que hay un par de teclados virtuales que si los añades al form que usas te funcionan perfectamente con los diferentes componentes de dicho form (memos, edits, etc) pero no he proado usandolos de un form a otro.

federicorl 04-12-2007 23:57:22

cuales teclados virtuales
 
cuales son los teclados virtuales que mencionas, como puedo probarlos?

gracias Saludos

José Luis Garcí 05-12-2007 09:35:34

te recomiendo que busques en Torry o en delphipages, uno se que se llama virtualkeyboard muy vistoso, el otro no recuerdo su nombre, pero me gusta más, en casa se que los tengo y ambos que te comento son free, lo que no sabria decirte es hasta que versión de delphi son validos, buscalos, si no lo encuentras, pon otro mensaje y te digo como conseguirlos, o los pongo para que los bajes.

enecumene 07-12-2007 15:54:03

Hola Jose Luis Garcí, mira me interesa el virtual Keyboard, lo estuve buscando y no lo encuentro, por eso pregunto, existe la posibilidad de que puedas ponerlo aqui para bajarlo, digo, si no es ninguna molestia.

Saludos.

José Luis Garcí 08-12-2007 12:39:57

Los dos componentes
 
Mando los dos teclados virtual, comentar que son free ambos y que el virtual queyboard es recomendable ver el ejemplo, en el otro no hay ejemplo pero es mucho más intuitivo de manejar, y permite 4 tipos de teclado, pero no soporta skins, probados en delphi 6 y en el trial de rad studio 2007 y funcionan.

el funcionamiento de keyboard es mas o meno de la siguiente manera
Código Delphi [-]

procedure tform1.Edit1.Onenter(Sender: TObject);     //componente que tiene la entrada o el foco si es editable.
begin
      keyboard1.LinkedControl:=edit1;
end;

José Luis Garcí 08-12-2007 12:48:38

Aqui os dejo el otro teclado, siento no haberlo enviado en el mensaje anterior pero no me lo permitia:confused: me ha paso algo muy estraño, no creo que tengan virus, pero no estaria de más que los escaneis, ya que son de un equipo que hace años tengo arrimado.

enecumene 10-12-2007 16:58:42

Muchissimas Gracias Jose Luis Garci los acabo de descargar, cualquier duda o problema luego te comentare. de nuevo gracias.

Saludos.

José Luis Garcí 10-12-2007 19:15:24

Por si os interesa ya e puesto en mi WEB algunos componentes que con sidero fundamentales, entre ello los dos componentes de teclado, por si os interesa son:

keyboard
Virtualkeyboard
Clock
Chessbrd
Start2w
XPMenu
Fbarcode

Tengo varios mas que poner, con algo de tiempo los ire subiendo, comentar que todos son free, por lo menos cuando yo los baje, asi eran. Comprobada versiones en Delphi 6.

enecumene 10-12-2007 19:32:37

Excelente Amigo Jose! me encontre con un componente de creacion de codigo de barras que me interesó muchissimo y de mucha utilidada para mi igual que le XPMenu. de nuevo muchas gracias!!.

José Luis Garcí 10-12-2007 21:33:32

Probastes los teclados, cual de los dos te parece más util, enecumene.

Dentro de un tiempo en cuanto los encuentre y pueda meterlos en la web, quiero poner los lectores de Scanner Twain, un componente ¿creo que se llama DBSearch?, para busquedas en la tabla, asociandola a uno de los campos, supergauge, que permite un gauge con la imagen segun el porcentaje, LG o LMPanel, un panel muy vistoso, QRbarcode, etc, así los componentes que considero muy utiles y son free, pero, todo eso lo tengo en un viejo equipo y cada vez que busco algo en el tengo que estar desmontandoo,montando y volver a desmontar.

enecumene 10-12-2007 22:12:20

Hola Jose, mira yo soy muy ignorantes en muchas cosas, pero va, que es un scanner Twain? y que es supergauge o gauge?. y los teclados todavia no los he probado, los probare esta noche en mi casa tranquilo pos el trabajo no me da tregua, mañana te comento cual escogo.

Saludos.

José Luis Garcí 10-12-2007 22:24:31

Scaner de sobremesas o mano con soporte Twain, para escanear fotos, textos con un ocr, etc. Supergauge es el nombre se un componente gauge (una barra marcando el avance de un proceso) este componente en vez de mostrar una barra de un color muestra una imagen, que segun sea el proceso va apareciendo y al llegar al 100% muestra la imagen completa. te comento que son componente para mi inmpresindibles, muchos hace tiempo que no los encuentro en la red, los pondre en mi pagina para que los descarge el que le interece, pero me gustaria ver si el personal esta interezado:D (no cobro por ello)

enecumene 10-12-2007 22:43:54

Cita:

Empezado por José Luis Garcí (Mensaje 251627)
muchos hace tiempo que no los encuentro en la red, los pondre en mi pagina para que los descarge el que le interece, pero me gustaria ver si el personal esta interezado:D (no cobro por ello)

Claro que estoy interesados en esos componentes que mencionas, pero al menos no aceptas un par de vinos en la taberna?.

Saludos.

José Luis Garcí 11-12-2007 09:54:07

:DMuchas gracias pero un refresco no más, que el alcohol me sienta muy mal.


La franja horaria es GMT +2. Ahora son las 10:57:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi