[Lazarus-es] virtual keys: ctrl fx

Paola Bruccoleri pbruccoleri en adinet.com.uy
Mie Ago 14 01:50:02 CEST 2013


El 13/08/2013 20:37, José Mejuto escribió:
> El 14/08/2013 0:51, Paola Bruccoleri escribió:
>> 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é..
>> lo probé recién y me sale este error al compilar:
>> Error: Incompatible types: got "TShiftState" expected "LongInt"
>
> Hola,
>
> Se me han quedado atrás un par de paréntesis:
>
> procedure LoQueSea.KeyDown(var Key: Word; Shift: TShiftState);
> begin
>   if (key=VK_F10) and (Shift=[ssCtrl]) then begin
>     blah;
>     blah;
>   end;
> end;
>
>
sip... me di cuenta hace un ratito! enseguida de escribir el mail! sorry..





More information about the Lazarus-es mailing list