[Lazarus-es] virtual keys: ctrl fx

[José Mejuto]

El 14/08/2013 0:21, Paola Bruccoleri escribió:

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

Hola,

Pues si, bien en general :)

> 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ó..

No es lo mismo. Ese modo comprueba si control está pulsado ahora, no si 
estaba pulsado cuando se pulsó F2, vamos que puede haber un desfase de 
tiempos.

--