chamada de função com parâmetros com set key

[cjp]

Pessoal, uma ajuda por favor: estou tentando chamar uma função com set key, o que eu já faço sem problema. O problema é que agora esta função precisa de parâmetros.

Estou tentando fazer assim:

set key -29 to crrecdes(" ",space(500))

E a função começa assim:

function crrecdes(usdst,txtrec)

Não sei por que, ela está iniciando com usdst=MAIN e txtrec=369.

Imagino que esta não seja a forma correta de chamar função com parâmetros com set key. Como deveria fazer?

[alxsts]

Olá!

Tente assim:

Código: Selecionar todos

#include   "Inkey.Ch"

FUNCTION Main()

   LOCAL bSetKey
   
   // Salva o Set atual da tecla, caso haja, e seta um novo   
   bSetKey := SetKey( K_CTRL_F10, { || crrecdes(" ",space(500)) } ) // O código -29 representa a tecla F10, K_CTRL_F10

   // < seus procedimentos  >

   // Restaura o Set anterior da tecla
   SetKey( K_CTRL_F10, bSetKey )

RETURN NIL
//------------------------------------------------------------------------------

É possível que você tenha problemas om esta tecla por ela ser reservada para os menus do Windows, que são compatíveis com o padrão SAA/CUA

[cjp]

Funcionou perfeitamente. Muito obrigado.

Quanto à tecla, se houver problema, eu troco o -29 por outra.

[JoséQuintas]

Curiosidade:
Se o parâmetro é fixo, porque não deixar direto na função?
Pra mim parece desnecessário colocar na chamada.

[cjp]

É que ele é fixo nesta chamada, mas em outras chamadas do sistema ele não é fixo. Por isso eu preciso chamá-lo com parâmetros.