Jump to content


Photo

Virtual key en lazarus


  • Please log in to reply
5 replies to this topic

#1 luk2009

luk2009

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2040 posts
  • LocationSanto Domingo

Posted 13 March 2010 - 06:42 PM

Como pase un poco de trabajo para poner a funcionar virtual key en lazarus he decidido poner un listado que encontre sobre los valores numeros de las diferentes teclas. Estos valores lo use asi:

luego de poner en el oncreate del form:


delphi
  1. keypreview:=true; 



y por ejemplo para usar la tecla escape
en el onkeydown del form se pone:


delphi
  1. if (key =27) then
  2. begin
  3. lo que deseas que pase
  4. end;
  5.  
  6.  



se que la mayoria de los que estan aqui saben esto, pero me gusta pensar que tambien hay muchos que necesitan saber las cosas desde el principio.  Ademas lo pongo aqui por si estoy haciendo algo que puede ser mejorado, me hagan el favor y lo indiquen.

Aqui esta la lista que prometi:


[table]

[tr][td]-------------------------[/td] [td]-------------------------[/td] [td]-------------------------[/td][/tr]
[tr][td]vk_BackSpace = 8[/td][td]vk_Tab = 9[/td][td]vk_Return = 13[/td][/tr]
[tr][td]vk_Shift = 16[/td][td]vk_Control = 17[/td][td]vk_Alt = 18[/td][/tr]
[tr][td]vk_Pause = 19[/td][td]vk_CapsLock = 20 [/td][td]vk_Escape = 27[/td][/tr]
[tr][td]vk_Space = 32[/td][td]vk_PageUp = 33[/td][td]vk_PageDown = 34[/td][/tr]
[tr][td]vk_End = 35[/td][td]vk_Home = 36[/td][td]vk_Left = 37[/td][/tr]
[tr][td]vk_Up = 38[/td][td]vk_Right = 39[/td][td]vk_Down = 40[/td][/tr]
[tr][td]vk_PrintScreen = 44 [/td] [td]vk_Insert = 45[/td][td]vk_Delete = 46[/td][/tr]

[tr][td]-------------------------[/td] [td]-------------------------[/td] [td]-------------------------[/td][/tr]

[tr][td]vk_0 = 48[/td] [td]vk_1 = 49[/td] [td]vk_2 = 50[/td][/tr]
[tr][td]vk_3 = 51[/td] [td]vk_4 = 52[/td] [td]vk_5 = 53[/td][/tr]
[tr][td]vk_6 = 54[/td] [td]vk_7 = 55[/td] [td]vk_8 = 56[/td][/tr]
[tr][td]vk_9 = 57[/td] [td][/td] [td][/td][/tr]

[tr][td]-------------------------[/td] [td]-------------------------[/td] [td]-------------------------[/td][/tr]

[tr][td]vk_A = 65[/td] [td]vk_B = 66[/td] [td]vk_C = 67[/td][/tr]
[tr][td]vk_D = 68[/td] [td]vk_E = 69[/td] [td]vk_F = 70[/td][/tr]
[tr][td]vk_G = 71[/td] [td]vk_H = 72[/td] [td]vk_I = 73[/td][/tr]

[tr][td]-------------------------[/td] [td]-------------------------[/td] [td]-------------------------[/td][/tr]

[tr][td]vk_J = 74[/td] [td]vk_K = 75[/td] [td]vk_L = 76[/td][/tr]
[tr][td]vk_M = 77[/td] [td]vk_N = 78[/td] [td]vk_O = 79[/td][/tr]
[tr][td]vk_P = 80[/td] [td]vk_Q = 81[/td] [td]vk_R = 82[/td][/tr]
[tr][td]vk_S = 83[/td] [td]vk_T = 84[/td] [td]vk_U = 85[/td][/tr]
[tr][td]vk_V = 86[/td] [td]vk_W = 87[/td] [td]vk_X = 88[/td][/tr]
[tr][td]vk_Y = 89[/td] [td]vk_Z = 90[/td] [td][/td][/tr]

[tr][td]-------------------------[/td] [td]-------------------------[/td] [td]-------------------------[/td][/tr]

[tr][td]vk_LWin = 91 *[/td] [td]vk_RWin = 92 *[/td] [td]vk_Apps = 93 *[/td][/tr]
[tr][td]vk_NumPad0 = 96[/td] [td]vk_NumPad1 = 97[/td] [td]vk_NumPad2 = 98[/td][/tr]
[tr][td]vk_NumPad3 = 99[/td] [td]vk_NumPad4 = 100[/td] [td]vk_NumPad5 = 101[/td][/tr]
[tr][td]vk_NumPad6 = 102[/td] [td]vk_NumPad7 = 103[/td] [td]vk_NumPad8 = 104[/td][/tr]
[tr][td]vk_NumPad9 = 105[/td] [td]vk_Multiply = 106[/td] [td]vk_Add = 107[/td][/tr]
[tr][td]vk_Subtract = 109[/td] [td]vk_Decimal = 110[/td] [td]vk_Divide = 111[/td][/tr]

[tr][td]-------------------------[/td] [td]-------------------------[/td] [td]-------------------------[/td][/tr]

[tr][td]vk_F1 = 112[/td] [td]vk_F2 = 113[/td] [td]vk_F3 = 114[/td][/tr]
[tr][td]vk_F4 = 115[/td] [td]vk_F5 = 116[/td] [td]vk_F6 = 117[/td][/tr]
[tr][td]vk_F7 = 118[/td] [td]vk_F8 = 119[/td] [td]vk_F9 = 120[/td][/tr]
[tr][td]vk_F10 = 121[/td] [td]vk_F11 = 122[/td] [td]vk_F12 = 123[/td][/tr]
[tr][td]vk_F13 = 124[/td] [td]vk_F14 = 125[/td] [td]vk_F15 = 126[/td][/tr]
[tr][td]vk_F16 = 127[/td] [td][/td] [td][/td][/tr]

[tr][td]-------------------------[/td] [td]-------------------------[/td] [td]-------------------------[/td][/tr]

[tr][td]vk_NumLock = 144[/td] [td]vk_ScrollLock = 145[/td] [td]vk_LShift = 160 **[/td][/tr]
[tr][td]vk_RShift = 161 **[/td] [td]vk_LControl = 162 **  [/td] [td]vk_RControl = 163 **[/td][/tr]
[tr][td]vk_LAlt = 164 **[/td] [td]vk_RAlt = 165 **[/td] [td]vk_SemiColon = 186[/td][/tr]
[tr][td]vk_Equals = 187[/td] [td]vk_Comma = 188[/td] [td]vk_UnderScore = 189[/td][/tr]
[tr][td]vk_Period = 190[/td] [td]vk_Slash = 191[/td] [td]vk_BackSlash = 220[/td][/tr]
[tr][td]vk_RightBrace = 221  [/td] [td]vk_LeftBrace = 219[/td] [td]vk_Apostrophe = 222[/td][/tr]
[tr][td]-------------------------[/td] [td]-------------------------[/td] [td]-------------------------[/td][/tr]

[/table]


espero que les pueda servir de ayuda



  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14448 posts
  • LocationMéxico

Posted 13 March 2010 - 09:21 PM

Hola luk,

Me tome la libertad de acomodar un poco la tabla de teclas virtuales.

Salud OS
  • 0

#3 luk2009

luk2009

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2040 posts
  • LocationSanto Domingo

Posted 13 March 2010 - 09:42 PM

Pues yo los veo casi iguales, no debiste molestarte.  :D :D,  mentira, gracias y la proxima vez me tomare el tiempo para colocarlo correctamente.


Pd. La proxima vez arregla el mio, te prometo que no me voy a sentir mal, ya que hasta los grandes escritores tienen personas que les corrigen sus obras. :smiley: :-#
  • 0

#4 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14448 posts
  • LocationMéxico

Posted 13 March 2010 - 09:45 PM

Pd. La proxima vez arregla el mio, te prometo que no me voy a sentir mal, ya que hasta los grandes escritores tienen personas que les corrigen sus obras. :smiley: :-#


Va, cambiemos código :D :D :D

Salud OS
  • 0

#5 German

German

    Member

  • Miembros
  • PipPip
  • 40 posts

Posted 14 March 2010 - 07:08 AM

La definicion de las constantes VK_* se encuentra en la unidad LCLType, asi que solo basta hacer uses LCLType para utilizarlas.
Saludos.
  • 0

#6 luk2009

luk2009

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2040 posts
  • LocationSanto Domingo

Posted 14 March 2010 - 07:39 AM

Gracias german, que bueno que estas con nosotros para ayudarnos a aprender.
  • 0




IP.Board spam blocked by CleanTalk.