[Lazarus-es] virtual keys: ctrl fx

[José Mejuto]

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;


--