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...
muchas gracias!
Mailing lists / lazarus-es / 2013-08
virtual keys: ctrl fx
18 messages · 6 people · –
- Paola Bruccoleri 9
- José Mejuto 3
- Martin Gomez 2
- Maxi 2
- David 1
- Rafael Bidegain 1
Reply by email Subscribe to this list Your subscription
Read-only archive. Use j and k to move between messages.
El 13/08/2013 16:53, Paola Bruccoleri escribi�:
Show quoted text 6 lines
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;El 13/08/2013 18:51, Jos� Mejuto escribi�:
Show quoted text 18 lines
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�!
c�mo te va?? espero muy bien!!
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�..
como siempre, muchas gracias!
byeeeeeeeee
El 13/08/2013 16:53, Paola Bruccoleri escribi�: Las virtual keys son s�lo de una key…
El 13/08/2013 18:51, Jos� Mejuto escribi�:
Show quoted text 18 lines
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"
El 13/08/2013 18:51, Jos� Mejuto escribi�: Hola Jos�! c�mo te va?? espero muy…
El 14/08/2013 0:21, Paola Bruccoleri escribi�:
Show quoted text 10 lines
> 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 :)
Show quoted text 9 lines
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.
El 13/08/2013 18:51, Jos� Mejuto escribi�: Hola Jos�.. lo prob� reci�n y me…
El 14/08/2013 0:51, Paola Bruccoleri escribi�:
Show quoted text 22 lines
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;El 13/08/2013 20:37, Jos� Mejuto escribi�:
Show quoted text 38 lines
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..
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�:
Show quoted text 52 lines
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
El 14/08/2013 15:01, Maxi escribi�:
si usas un actionlist te captura las teclas en la propiedad shortcut del formulario en que lo definiste.
Hola Maxi..
la verdad nunca he usado los actionlist! puedes mostarme alg�n ejemplo? muchas gracias!
2013/8/14 Paola Bruccoleri <pbruccoleri en adinet.com.uy>
Hola Maxi.. la verdad nunca he usado los actionlist! puedes mostarme alg�n ejemplo? muchas gracias!
?Debiesen ser obligatorios :D
Imaginate que tenes la rutina de grabaci�n de la pantalla... y hay que mapearla a la barra de iconos bajo el menu, al menu, a un boton en el formulario y al atajo de teclado que hayas definido... lo escribis una sola vez, mapeas el icono a un TImageList, y despu�s en el menu, la barra y el bot�n buscas en el desplegable de Actions y eliges la acci�n. Es limpio, ordenado y facil.?
Try not to become a man of success but rather to become a man of value. *Albert
Einstein*
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20130814/a3b87eb5/attachment.html>
El 14/08/2013 15:01, Maxi escribi�: Hola Maxi.. la verdad nunca he usado los…
El d�a 14 de agosto de 2013 16:20, Paola Bruccoleri <pbruccoleri en adinet.com.uy> escribi�:
Show quoted text 17 lines
El 14/08/2013 15:01, Maxi escribi�:
> si usas un actionlist te captura las teclas en la propiedad shortcut
> del formulario en que lo definiste.
>
>
Hola Maxi..
la verdad nunca he usado los actionlist! puedes mostarme alg�n ejemplo?
muchas gracias!
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
Los action list los puedes usar para compartir codigo, captions, iconos, enabled, visible, etc entre menues, botones, popups y mas. Creas una accion, y llenas los datos a gusto, en el onexecute, pones tu codigo. Despues en el boton asocias esa accion y listo. Incluso podes ejecutar el codigo desde otro lado como miAccion.execute;
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
2013/8/14 Paola Bruccoleri <pbruccoleri en adinet.com.uy> ?Debiesen ser obligatorios :D…
El 14/08/2013 16:29, Martin Gomez escribi�:
Show quoted text 19 lines
2013/8/14 Paola Bruccoleri <pbruccoleri en adinet.com.uy
<mailto:pbruccoleri en adinet.com.uy>>
Hola Maxi..
la verdad nunca he usado los actionlist! puedes mostarme alg�n
ejemplo?
muchas gracias!
?Debiesen ser obligatorios :D
Imaginate que tenes la rutina de grabaci�n de la pantalla... y hay que
mapearla a la barra de iconos bajo el menu, al menu, a un boton en el
formulario y al atajo de teclado que hayas definido... lo escribis una
sola vez, mapeas el icono a un TImageList, y despu�s en el menu, la
barra y el bot�n buscas en el desplegable de Actions y eliges la acci�n.
Es limpio, ordenado y facil.?
si, ciertamente por lo que veo....! pero no te creas que repito c�digo a rolete!!! me las ingenio a la forma tradicional jeje voy a ver si me acostumbro! :)
byeeeeeeeeeee
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20130814/242b29e1/attachment-0001.html>
si usas un actionlist te captura las teclas en la propiedad shortcut del formulario en…
En Wed, 14 Aug 2013 20:01:07 +0200, Maxi <maximiliano.duarte en gmail.com> escribi�:
Show quoted text 62 lines
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/
El 14/08/2013 0:51, Paola Bruccoleri escribi�: Se me han quedado atr�s un par de…
El 13/08/2013 20:37, Jos� Mejuto escribi�:
Show quoted text 38 lines
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;
Hola Jos�...
se me ha presentado un petit problemita con esto de las combinaciones de teclas.
En el formKeyDown capturo varias Fx, y entre ellas tengo definidas F2 y CTRL F2 que obviamente hacen diferentes cosas.
if (key=VK_F2) then begin
----
end;
if(key=VK_F2) and (Shift=[ssCtrl]) then begin
----
end;PERO... si presiono CTRL F2, primero pasa por la rutina de F2 y luego por la de CTRL F2
si cambio la estructura y pongo el 2do if dentro del else del primer if, por m�s que presione ctrl f2, siempre ejecuta F2
existir� alguna otra forma de solucionarlo??
muchas gracias!
chequea por Shift=ssNone para tener F2 sola.
2013/8/17 Paola Bruccoleri <pbruccoleri en adinet.com.uy>
Show quoted text 76 lines
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;
>
>
> Hola Jos�...
se me ha presentado un petit problemita con esto de las combinaciones de
teclas.
En el formKeyDown capturo varias Fx, y entre ellas tengo definidas F2 y
CTRL F2 que obviamente hacen diferentes cosas.
if (key=VK_F2) then begin
----
end;
if(key=VK_F2) and (Shift=[ssCtrl]) then begin
----
end;
PERO... si presiono CTRL F2, primero pasa por la rutina de F2 y luego por
la de CTRL F2
si cambio la estructura y pongo el 2do if dentro del else del primer if,
por m�s que presione ctrl f2, siempre ejecuta F2
existir� alguna otra forma de solucionarlo??
muchas gracias!
______________________________**_________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.**freepascal.org<Lazarus-es en lists.lazarus.freepascal.org>
http://lists.lazarus.**freepascal.org/mailman/**listinfo/lazarus-es<http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es>
Try not to become a man of success but rather to become a man of value. *Albert
Einstein*
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20130817/70aef485/attachment.html>
El 13/08/2013 20:37, Jos� Mejuto escribi�: Hola Jos�... se me ha presentado un…
Hola Paola
El 17 de agosto de 2013 13:21, Paola Bruccoleri
<pbruccoleri en adinet.com.uy>escribi�:
Show quoted text 20 lines
se me ha presentado un petit problemita con esto de las combinaciones de
teclas.
En el formKeyDown capturo varias Fx, y entre ellas tengo definidas F2 y
CTRL F2 que obviamente hacen diferentes cosas.
if (key=VK_F2) then begin
----
end;
if(key=VK_F2) and (Shift=[ssCtrl]) then begin
----
end;
PERO... si presiono CTRL F2, primero pasa por la rutina de F2 y luego por
la de CTRL F2
si cambio la estructura y pongo el 2do if dentro del else del primer if,
por m�s que presione ctrl f2, siempre ejecuta F2
existir� alguna otra forma de solucionarlo??
muchas gracias!
esto deberIa funcionar.
if (key=VK_F2) then
if (Shift=[ssCtrl]) then begin
----
end
else
begin
----
end;saludos
--
Rafael Bidegain
Ya que los cuerdos no hablan, hablar� el loco.
(The Fool, Padraic Pearse)
# yo quiero educaci�n libre. �YA!
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20130818/c6ef267a/attachment.html>
El 18/08/2013 13:57, Rafael Bidegain escribi�:
Show quoted text 42 lines
Hola Paola
El 17 de agosto de 2013 13:21, Paola Bruccoleri
<pbruccoleri en adinet.com.uy <mailto:pbruccoleri en adinet.com.uy>> escribi�:
se me ha presentado un petit problemita con esto de las
combinaciones de teclas.
En el formKeyDown capturo varias Fx, y entre ellas tengo definidas
F2 y CTRL F2 que obviamente hacen diferentes cosas.
if (key=VK_F2) then begin
----
end;
if(key=VK_F2) and (Shift=[ssCtrl]) then begin
----
end;
PERO... si presiono CTRL F2, primero pasa por la rutina de F2 y
luego por la de CTRL F2
si cambio la estructura y pongo el 2do if dentro del else del
primer if, por m�s que presione ctrl f2, siempre ejecuta F2
existir� alguna otra forma de solucionarlo??
muchas gracias!
esto deberIa funcionar.
if (key=VK_F2) then
if (Shift=[ssCtrl]) then begin
----
end
else
begin
----
end;
saludos
Hola Rafael y Mart�n
no me ha funcionado ninguna de las 2 cosas :(
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20130819/406a8001/attachment.html>
Hola Paola El 17 de agosto de 2013 13:21, Paola Bruccoleri <pbruccoleri en…
Show quoted text 11 lines
esto deberIa funcionar.
if (key=VK_F2) then
if (Shift=[ssCtrl]) then begin
----
end
else
begin
----
end;
Hola Rafael
estaba haciendo algo mal,me apur�a responder el otro mail.... con eso solo por lo menos ahora si detecto una y otra!
muchas gracias!