Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > Lazarus, FreePascal, Kylix, etc.
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-09-2006
Avatar de Pascalizado
Pascalizado Pascalizado is offline
Miembro
 
Registrado: abr 2006
Ubicación: Buenos Aires, Argentina
Posts: 163
Poder: 18
Pascalizado Va por buen camino
[lazarus] Estado de las teclas Mayus, Bloq Num...

Hola amigos del foro, tengo una duda bastante basica, que es: ¿como capturo el estado de las teclas Mayus, Bloq Num e insert?

Muchas gracias!
__________________
Pascalizado
-----------------------------
"Ser una pluma y por el viento dejarse llevar hasta donde nunca nadie pudo llegar..."
Responder Con Cita
  #2  
Antiguo 27-09-2006
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 23
vtdeleon Va por buen camino
Bueno, nunca he usado Lazarus, pero imagino que debe ser similar a Delphi. Ademas no dices en que Sistema Operativos estas.

Prueba con este truco:
http://www.clubdelphi.com/trucos/index.php?id=61
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
  #3  
Antiguo 27-09-2006
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
 
Registrado: dic 2004
Posts: 882
Poder: 20
Héctor Randolph Va por buen camino
Perfectamente válido lo que dice Troi, acabo de probarlo con Lazarus en Windows y funciona muy bien

Código Delphi [-]
procedure TForm2.KeyState();
begin
  if GetKeyState(VK_NUMLOCK) and 1 = 1 then
    StatusBar1.Panels[2].Text:='Num'
  else
    StatusBar1.Panels[2].Text:=''
end;

Lo único que hay que tener en cuenta es agregar en los uses las units LCLType y LCLIntf; aqui se definen las constantes de teclas virtuales para compatibilidad con Delphi y las llamadas a funciones de la API de windows.

Saludos
Responder Con Cita
  #4  
Antiguo 28-09-2006
Avatar de Pascalizado
Pascalizado Pascalizado is offline
Miembro
 
Registrado: abr 2006
Ubicación: Buenos Aires, Argentina
Posts: 163
Poder: 18
Pascalizado Va por buen camino
Muchas Gracias!!!

Muchas gracias amigos por sus respuestas me sirvio mucho. cuando intente lo que me recomendo Troi le estaba errando en que no ponia las unidades LCLtypes y LCLIntf, que bolsa de brutalidades soy!

Un abrazo
__________________
Pascalizado
-----------------------------
"Ser una pluma y por el viento dejarse llevar hasta donde nunca nadie pudo llegar..."
Responder Con Cita
  #5  
Antiguo 29-09-2006
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 23
vtdeleon Va por buen camino
Saludos
Cita:
Empezado por Hector
Lo único que hay que tener en cuenta es agregar en los uses las units LCLType y LCLIntf;
Gracias, ya he modificado el truco agregando las units.
Cita:
Empezado por Pascalizado
Muchas gracias amigos por sus respuestas me sirvio mucho. cuando intente lo que me recomendo Troi le estaba errando en que no ponia las unidades LCLtypes y LCLIntf, que bolsa de brutalidades soy!
No te preocupes, fue mala mia.

Saludas
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
[Lazarus] GTK+-devel en SUSE. problema instalar lazarus de esa libreria. sakuragi Lazarus, FreePascal, Kylix, etc. 3 28-09-2006 04:31:09
Desactivar Bloq Mayus hugao Varios 1 26-09-2006 07:13:32
Lazarus shaktale Varios 1 22-12-2003 20:27:52
Lazarus DJ VMan Varios 2 02-08-2003 00:54:56
Caps Locks (bloq mayús) cmgenny Varios 2 27-05-2003 19:25:39


La franja horaria es GMT +2. Ahora son las 16:05:09.


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
Copyright 1996-2007 Club Delphi