[Lazarus-es] virtual keys: ctrl fx

[Paola Bruccoleri]

El 13/08/2013 18:51, José Mejuto escribió:
> El 13/08/2013 16:53, Paola Bruccoleri escribió:
>> Hola todos..
>>
>> existe la constante para la combinación de teclas CTRL F10??
>> no la encuentro; quizás aquí no se puedan capturar esas combinaciones de
>> tecla para ejecutar algo...
>>
>
> Las virtual keys son sólo de una key ;) Creo que te refieres a esto:
>
> procedure LoQueSea.KeyDown(var Key: Word; Shift: TShiftState);
> begin
>   if key=VK_F10 and Shift=[ssCtrl] then begin
>     blah;
>     blah;
>   end;
> end;
>
Hola José!
cómo te va?? espero muy bien!!

hace un rato buscando en los foros de delphi, encontré esto:

   If key = VK_F2 then begin
      if GetKeyState(VK_CONTROL) < 0 then begin  // se presionó CONTROL
         ........................
      end;
   end;

será lo mismo?? supongo que tu solución será más prolija. Probé lo que 
yo hice y me funcionó..

como siempre, muchas gracias!
byeeeeeeeee