[Lazarus-es] virtual keys: ctrl fx

Maxi maximiliano.duarte en gmail.com
Mie Ago 14 20:01:07 CEST 2013


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



-- 
El que pregunta aprende, y el que contesta aprende a responder.

No a la obsolecencia programada:
http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml

Linux User #495070
http://domonetic.com/blog




More information about the Lazarus-es mailing list