[Lazarus-es] virtual keys: ctrl fx

[David]

En Wed, 14 Aug 2013 20:01:07 +0200, Maxi <maximiliano.duarte en gmail.com>  
escribió:

> si usas un actionlist te captura las teclas en la propiedad shortcut
> del formulario en que lo definiste.
>
> El día 13 de agosto de 2013 20:50, Paola Bruccoleri
> <pbruccoleri en adinet.com.uy> escribió:
>> 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..
>>
>>
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>


-- 
Usando el novísimo cliente de correo de Opera: http://www.opera.com/mail/