HMGs não compila função da HMG GetControlNameByHandle

[rubens]

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

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

[Toledo]

Amigo, qual a versão da HMG você está usando?

Esta função foi incluída na HMG 3.1.5 (31/07/2013).

Abraços,

[rubens]

Eu uso a Minigui Extends 16.01...

O Grigory respondeu na lista o seguinte:

Keep it simple!
There is a known control property 'FocusedControl' for your need.

Example:
ON KEY F2 ACTION ( ctrl := ThisWindow.FocusedControl, MsgInfo( ctrl ) )

There is also a working small sample at your folder samples\Basic\DatePicker.

Hope that helps.

funcionou belezinha...

Obg
Rubens