Associar tecla F4 ao OnBtnClik de um TBrwColumn

[ricardo]

Olá a todos,
Venho mais uma vez aqui solicitar a ajuda dos senhores.
Desta vez gostaria de saber como posso associar a tecla F4 ao evento OnBtnClik
de um TBrwColumn.
Ex.: Gostaria de quando fosse prescionada a tecla F4, executa-se o evento
OnBtnClik de um TBrwColumn que esteja em edição.
Desde já agraço a atenção de todos.
Ricardo C. Freitas

[emeasoft]

Ricardo:
Faça assim:
Para associar:
SetKey( 115, 0 , {|| ::oButton1:OnClick } )
Para cancelar:
SetKey( 115, 0 , { } )
Mário Angelini
www.eMeAsOfT.com
http://emeasoft.blogspot.com/
http://twitter.com/emeasoft
"Ricardo C. Freitas" <ricardo@rcf.com.br> escreveu na notí­cia da
mensagem:4b8c39b7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>
> Olá a todos,
>
>
> Venho mais uma vez aqui solicitar a ajuda dos senhores.
> Desta vez gostaria de saber como posso associar a tecla F4 ao evento
> OnBtnClik
> de um TBrwColumn.
> Ex.: Gostaria de quando fosse prescionada a tecla F4, executa-se o evento
> OnBtnClik de um TBrwColumn que esteja em edição.
> Desde já agraço a atenção de todos.
>
>
> Ricardo C. Freitas

[ricardo]

Obrigado Mário Angelini pela resposta, mas gostaria que está tecla funciona-se
somente quando o foco estiver sobre o objeto edit do TBColumn.
Atenciosamente,
Ricardo C. Freitas
=?iso-8859-1?Q?M=E1rio_Angelini?= <mario@emeasoft.com.br> wrote:
>Ricardo:
>Faça assim:
>
>Para associar:
> SetKey( 115, 0 , {|| ::oButton1:OnClick } )
>
>Para cancelar:
> SetKey( 115, 0 , { } )
>
>
>Mário Angelini
>www.eMeAsOfT.com
>http://emeasoft.blogspot.com/
>http://twitter.com/emeasoft
>
>
>
>
>
>"Ricardo C. Freitas" <ricardo@rcf.com.br> escreveu na notícia da
>mensagem:4b8c39b7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>
>> Olá a todos,
>>
>>
>> Venho mais uma vez aqui solicitar a ajuda dos senhores.
>> Desta vez gostaria de saber como posso associar a tecla F4 ao evento
>> OnBtnClik
>> de um TBrwColumn.
>> Ex.: Gostaria de quando fosse prescionada a tecla F4, executa-se o evento
>> OnBtnClik de um TBrwColumn que esteja em edição.
>> Desde já agraço a atenção de todos.
>>
>>
>> Ricardo C. Freitas
>

[emeasoft]

Ricardo,
Experimente o evento OnKeyDown do Edit.
Ele retorna em nkey a tecla digitada quando o foco está no Edit.
Então faça a regra:
IF nkey=115
..... ação
ENDIF
Se não der certo e quiser enviar-me um pequeno exemplo,
posso dar uma olhada.
Mário

[ricardo]

O que desejo fazer e colocar isso dentro do edit que é gerado na edição de
uma coluna do TBrowse, más nos eventos da coluna do TBrowse não existe o
evento onKeyDown.
Ricardo C. Freitas
=?iso-8859-1?Q?M=E1rio_Angelini?= <mario@emeasoft.com.br> wrote:
>Ricardo,
>Experimente o evento OnKeyDown do Edit.
>Ele retorna em nkey a tecla digitada quando o foco está no Edit.
>Então faça a regra:
>
>IF nkey=115
> ..... ação
>ENDIF
>
>Se não der certo e quiser enviar-me um pequeno exemplo,
>posso dar uma olhada.
>Mário
>
>

[ricardo]

Poderia ser uma rotina geral que analiza-se em qual objeto está o foco, deforma
que eu pude-se executar uma ação.
Abaixo segue um exemplo de como faço no clipper
Set Key K_F4 to Consulta()
Function Consulta(PROGRAMA, VARIAVEL, LINHA)
if Variavel = 'VAR1'
...
endif
Return Nil
"Ricardo C. Freitas" <ricardo@rcf.com.br> wrote:
>
>O que desejo fazer e colocar isso dentro do edit que é gerado na edição
de
>uma coluna do TBrowse, más nos eventos da coluna do TBrowse não existe o
>evento onKeyDown.
>
>
>Ricardo C. Freitas
>
>=?iso-8859-1?Q?M=E1rio_Angelini?= <mario@emeasoft.com.br> wrote:
>>Ricardo,
>>Experimente o evento OnKeyDown do Edit.
>>Ele retorna em nkey a tecla digitada quando o foco está no Edit.
>>Então faça a regra:
>>
>>IF nkey=115
>> ..... ação
>>ENDIF
>>
>>Se não der certo e quiser enviar-me um pequeno exemplo,
>>posso dar uma olhada.
>>Mário
>>
>>
>

[jrcpoli-quitar]

Saludos:
Cuando una columna entra en edición lo que se está ejecutando es un
objeto oGridEdit el cual hereda los mismos eventos que un TstdControl
entre los que está OnKeyDown y demás, yo te recomiendo que mires en la
ayuda TGridEdit, la propiedad oGridEdit de la columna y el evento
OnGridEditCreate.
Como te ha dicho Mário serí­a mejor que nos mostraras un ejemplo aunque
sea en código clipper de lo que quieres, pero un poco mas completo de lo
que has mostrado porque no se ve si lo que quieres es que se seleccione
un elemento y si es así­ TBrwColumn:nEditType solucionarí­a el problema.
José Ramón Castro.
Ricardo C. Freitas escribió:
> O que desejo fazer e colocar isso dentro do edit que é gerado na edição de
> uma coluna do TBrowse, más nos eventos da coluna do TBrowse não existe o
> evento onKeyDown.
>
>
> Ricardo C. Freitas
>
> =?iso-8859-1?Q?M=E1rio_Angelini?=<mario@emeasoft.com.br> wrote:
>> Ricardo,
>> Experimente o evento OnKeyDown do Edit.
>> Ele retorna em nkey a tecla digitada quando o foco está no Edit.
>> Então faça a regra:
>>
>> IF nkey=115
>> ..... ação
>> ENDIF
>>
>> Se não der certo e quiser enviar-me um pequeno exemplo,
>> posso dar uma olhada.
>> Mário
>>
>>
>