HMGs não compila função da HMG GetControlNameByHandle
Enviado: 17 Fev 2016 19:05
Boa tarde ...
Cheguei até o código pesquisando na net.
Só que quando tento compilar com a HMGs não compila.
Alguém sabe qual o comando equivalente na HMGs? Ou uma solução para capturar o componente em foco?
Obrigado
Rubens
Cheguei até o código pesquisando na net.
Só que quando tento compilar com a HMGs não compila.
Alguém sabe qual o comando equivalente na HMGs? Ou uma solução para capturar o componente em foco?
Obrigado
Rubens
Código: Selecionar todos
//********************************************************************************************************
//* by Crocciari, Daniel
//* Mantenha os creditos ao divulgar esse material
//* 2015
//********************************************************************************************************
//********************************************************************************************************
// captura o componente que esta em foco
********************************************************************************************************
PROCEDURE CATS_getControlFocus()
LOCAL cControlName, cFormName, i
hWnd := getFocus()
GetControlNameByHandle (hWnd, @cControlName, @cFormName)
RETURN cControlName