Отправлено: 16.10.11 20:35. Заголовок: Макроподстановки

К контролу формы можно обратиться , примерно так

Forma_1.BtnTxt_SCHET1.Value:=Schet->Kod

или используя макроподстановку

Forma_1.&("BtnTxt_SCHET"+sBtnTxt).Value:=Schet->Kod

Форму можно так же создать используя макроподстановки
DEFINE WINDOW &cForm

Но вот как обратиться к контролам этой формы?
Используя только SetProperty , GetProperty?
Такая же ситуация возникает, если одной функцией обрабатывать
вызовы из разных форм.

 Отправлено: 17.10.11 10:39. Заголовок: Vlad04 пишет: Но во..

Vlad04 пишет:

цитата:

Но вот как обратиться к контролам этой формы?

Обратите внимание на следующие универсальные формы псевдо-ООП кода:

ThisWindow.Name

This.Name

ThisWindow.FocusedControl

Возможно, это поможет написать унивесальную процедуру для различных однотипных форм.

 Отправлено: 17.10.11 12:29. Заголовок: ThisWindow.Name Th..

цитата:

ThisWindow.Name This.Name ThisWindow.FocusedControl

Поведение половинчатое

sNameF:=ThisWindow.Name
MsgInfo(sNameF)
Срабатывает без ошибок.
Так же все нормально при инициализации формы

ThisWindow.MINWIDTH:=ThisWindow.WIDTH
ThisWindow.MAXWIDTH:=ThisWindow.WIDTH

ThisWindow.MINHEIGHT:=ThisWindow.HEIGHT
ThisWindow.MAXHEIGHT:=ThisWindow.HEIGHT

Но присвоить значение контролу во всех случаях ведет к ошибке (еще на этапе компиляции)
ThisWindow.Browse_2.Value := RecNo()
или

This.Browse_2.Value := RecNo()

 Отправлено: 17.10.11 13:17. Заголовок: Vlad04 пишет: Но пр..

Vlad04 пишет:

цитата:

Но присвоить значение контролу во всех случаях ведет к ошибке (еще на этапе компиляции)

А если попробовать так:

sNameF:=ThisWindow.Name
SetProperty(sNameF,"Browse_2","Value",RecNo())

 Отправлено: 17.10.11 13:51. Заголовок: Так все ок!..

Так все ок!