Teclado touchscreen

[delphi.com.ar]

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í]]

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]

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

gracias Saludos

[[José Luis Garcí]]

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]]

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í]]

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í]]

Aqui os dejo el otro teclado, siento no haberlo enviado en el mensaje anterior pero no me lo permitia 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.