12345вышелзайчикпогулятьссылаться на
this.
thisform.
возможно только в методах класса,
в прг использовать эти зарезервированные ссылки невозможно
для того, чтобы во внешнем модуле
ссылаться на какой-то объект поступают
одним из следующих способов
1. _screen.activeform - это всегда активная форма
2. объявляют перед вызовом модуля паблик или приват переменную, присваивают ей ссылку
на объект и затем уже в модуле к ней обращаются
3. передают нормально в lparam ссылкой эти объекты
Понял) ситуация в том, чтобы вместо _screen в *.prg
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
_screen.AddObject('Timer_1', 'tmr_NY_timer')
DEFINE CLASS tmr_NY_timer as Timer
Interval = 1000
Enabled = .T.
PROCEDURE Timer
ld_CurrentDate = DATE()
lt_CurrentTime = DATETIME()
ld_NewYear = DATE(YEAR(ld_CurrentDate) + 1 , 1 , 1 )
ls_NewYear = SPACE( 20 ) + 'До Нового ' ;
+ ALLTRIM(STR(YEAR(ld_CurrentDate) + 1 )) + ' года: ' ;
+ ALLTRIM(STR(ld_NewYear - ld_CurrentDate - 1 )) + ' дн ' ;
+ ALLTRIM(STR( 23 - HOUR(lt_CurrentTime))) + ' час ' ;
+ ALLTRIM(STR( 59 - MINUTE(lt_CurrentTime))) + ' мин ' ;
+ ALLTRIM(STR( 59 - SEC(lt_CurrentTime))) + ' сек '
this.Parent.Caption = gs_Caption + ls_NewYear
ENDDEFINE
указатель на нужную форму передать. Тогда да, тогда ссылка на объект в любой её форме
