SETKEY() ?

[Mario Angelini]

Estou querendo aprender a usar o SETKEY() para em qualquer TEdit ao teclar
F3, carregar CALCULATOR()
Fiz o teste abaixo mas nada acontece se teclar F3 no TEdit.
Como faço?
Grato.
Mário Angelini
www.emeasoft.com.br
#include "Xailer.ch"
#define K_F3 -2
CLASS TForm1 FROM TForm
COMPONENT oEdit1
COMPONENT oLabel1
METHOD CreateForm()
METHOD FormInitialize( oSender )
ENDCLASS
#include "form1.xfm"
METHOD FormInitialize( oSender ) CLASS TForm1
SETKEY( K_F3, FALT, {|| Calculator() } )
RETURN Nil

[jfgimenez]

Mario,
> SETKEY( K_F3, FALT, {|| Calculator() } )
Con esto tienes que pulsar Alt+F3. Si quieres que funcione sólo con F3,
tendrás que poner:
SetKey( K_F3, 0, {|| Calculator() } )
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Mario Angelini]

Boa tarde,
Poderia me postar um pequeno exemplo pois fiz da forma abaixo mas não está
funcionado:
#include "Xailer.ch"
#define K_F3 -2
CLASS TForm4 FROM TForm
COMPONENT oEdit1
SETKEY( K_F3, 0, {|| Calculator() } )
METHOD CreateForm()
ENDCLASS
Gracias
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escreveu na mensagem
news:46a093bd$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Mario,
>
>> SETKEY( K_F3, FALT, {|| Calculator() } )
>
> Con esto tienes que pulsar Alt+F3. Si quieres que funcione sólo con F3,
> tendrás que poner:
>
> SetKey( K_F3, 0, {|| Calculator() } )
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>

[jfgimenez]

Mario,
debes utilizar el evento OnInitialize del formulario. P.ej:
CLASS TForm4 FROM TForm
COMPONENT oEdit1
METHOD CreateForm()
METHOD FormInitialize( oSender )
ENDCLASS
METHOD FormInitialize( oSender ) CLASS TForm4
SETKEY( K_F3, 0, {|| Calculator() } )
RETURN Nil
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Mario Angelini]

Fiz o teste com o seu exemplo e teclo F3 mas não aciona a calculadora.
O que está errado?
Grato
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escreveu na mensagem
news:[email=46ba1dc6@ozsrv2.ozlan.local...]46ba1dc6@ozsrv2.ozlan.local...[/email]
> Mario,
>
> debes utilizar el evento OnInitialize del formulario. P.ej:
>
> CLASS TForm4 FROM TForm
> COMPONENT oEdit1
> METHOD CreateForm()
> METHOD FormInitialize( oSender )
> ENDCLASS
>
> METHOD FormInitialize( oSender ) CLASS TForm4
> SETKEY( K_F3, 0, {|| Calculator() } )
> RETURN Nil
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>

[Mario Angelini]

Bom dia,
Aguardo uma solução para esta rotina pois o exemplo que me foi enviado não
responde ao comando.
Mário Angelini

[jfgimenez]

Mario,
> Bom dia,
> Aguardo uma solução para esta rotina pois o exemplo que me foi enviado não
> responde ao comando.
Aquí tienes el ejemplo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info


Attached files SetKey.zip (1.5 KB)Â

[Mario Angelini]

Funcionou.
O problema era que estava definido o CHR errado:
#define K_F3 -2
como em Clipper, sendo que o correto em Xailer é:
#define K_F3 114
ou usar VK_F3 definido em WINUSER.API.
Gracias