Проблема с Click в ТехтBoxe Grid а.
Создаю форму как экземпляр класса, в форме есть Грид, хочу создать обработчик в ТехтВохt колонки грида.

ADD OBJECT grid1 AS grid WITH ;
ColumnCount = 19

На OnInit формы заменяю контрол

WITH This.Column2
.AddObject("text_1","aTextBoxClick")
.Sparse = .F.
.CurrentControl = "text_1"
WITH .text_1
*.Alignment = 2
*.Caption = ""
.Name = "text_1"
.Visible = .T.
ENDWITH
.RemoveObject("text1")
ENDWITH

Класс определен как

Define Class aTextBoxClick as TextBox
BorderStyle = 0
Margin = 0

PROCEDURE Click
MESSAGEBOX("You clicked me!")
ENDPROC
EndDefine
Но печему-то обработчик не подхватывается

И еще может есть метод GridHitTest() с абсолютными зачениями колонок?

Данные должны быть.
Может у кого есть пример создания формы из prg в которой есть грид с обработчиками событий по типу FormX.GridX.ColumnX.Text1?