Цитата:

loForm = CREATEOBJECT("Test")
loForm.VISIBLE = .T.

DEFINE CLASS Test AS FORM
ADD OBJECT LabelTest AS LABEL
NAME='FormTest'
FUNCTION INIT
LOCAL loForm, loThis
THIS.VISIBLE = .T.
WITH THIS
m.loThis =GetWithObj()
m.loForm = ObjForm(m.loThis)
MESSAGEBOX( m.loThis.NAME,'1. Объект под With')
MESSAGEBOX( m.loForm.NAME,'1. Форма объекта под With')
ENDWITH

WITH THIS.LabelTest
m.loThis =GetWithObj()
m.loForm = ObjForm(m.loThis)
MESSAGEBOX( m.loThis.NAME,'2. Объект под With')
MESSAGEBOX( m.loForm.NAME,'2. Форма объекта под With')

ENDWITH
ENDDEFINE

*
* Ссылка на объект, заданный WITH
*
FUNCTION GetWithObj
RETURN IIF(TYPE('.Parent') = 'U', .OBJECTS(1).PARENT, EVALUATE('.Parent.' + .NAME))

*
* Для заданого объекта формы объект формы
*
FUNCTION ObjForm
LPARAMETERS loObj

LOCAL lnLine
IF TYPE('loObj.Name')#'C' OR UPPER(m.loObj.BASECLASS)='FORM'
RETURN m.loObj
ENDIF
FOR m.lnLine=1 TO 20
IF TYPE('loObj.PARENT')='U'
RETU m.loObj
ENDIF
m.loObj=m.loObj.PARENT
IF UPPER(m.loObj.BASECLASS)='FORM'
EXIT
ENDIF
NEXT
RETURN m.loObj

Ydin
При этом код этих событий везде обрамляется With/Endwith, но с разными объектами этой формы.
Мне важно определить сам объект форму.

WITH this.labelform
...
ENDWITH

WITH this.labelform
   m.loThis = GetWithObj()
ENDWITH

WITH this.labelform
   m.loThis = this.labelform
ENDWITH

m.loThis = this.labelform
WITH m.loThis
   * m.loThis уже готова
ENDWITH

akvvohinc

Ydin
При этом код этих событий везде обрамляется With/Endwith, но с разными объектами этой формы.
Мне важно определить сам объект форму.

Ну, вот как я понимаю эту проблему:

Где-то в коде формы стояло

WITH this.labelform
...
ENDWITH

Внутри WITH понадобилось получить ссылку на WITH-объект (например, для передачи объекта в какую-то функцию или для получения ссылки на его родительскую форму).

Есть по крайней мере 3 способа как этого достичь:

Ydin
Akvvohinc, я тут на Форуме самый старый, мне 73 года.
В сентябре 1988 года Ashton-Tate подала в суд иск о нарушении её авторских прав на язык dBase в продуктах Fox Software.
Я из того времени, чуть раньше.

Цитата:

У них есть "Thisform"

Ydin
В том и дело, что нет там Thisform!Нет THIS!

Ydin
Если учесть, что я могу только, условно говоря, писать prg, не трогая исходники Framework

akvvohinc
они могут достичь той же цели проще.

Ydin
Какой цели? В этой ветке, вообще, цели нет...

Ydin
Надо определить объект, заданный с помощью With. И форму этого объекта

of63
К сожалению, указатель из верхушки стека (WITH обьект ...ENDWITH) разрабы фокса не сделали возможности считать

Цитата:

К сожалению, указатель из верхушки стека (WITH обьект ...ENDWITH) разрабы фокса не сделали возможности считать

loObject = <ссылка на WITH-объект>
WITH loObject
   * здесь loObject и есть тот указатель
ENDWITH

Ydin

of63
К сожалению, указатель из верхушки стека (WITH обьект ...ENDWITH) разрабы фокса не сделали возможности считать

* Ссылка на объект, заданный WITH
EVALUATE('.Parent.' + .NAME)

WITH CREATEOBJECT(чего-то)
   ? .свойство
   ? GETPEM(. , свойство)
ENDWITH

"Parent"-обьект может отсутствовать принципиально, и часто отсутствует. Это CREATEOBJECT("Empty"), или SCATTER NAME переменная-обьект

Ydin
IIF(TYPE('.Parent') = 'U', .OBJECTS(1).PARENT, EVALUATE('.Parent.' + .NAME))