Автор | Сообщение |
|
| постоянный участник
|
Пост N: 252
Зарегистрирован: 13.10.05
|
|
Отправлено: 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? Такая же ситуация возникает, если одной функцией обрабатывать вызовы из разных форм.
|
|
|
Ответов - 4
[только новые]
|
|
|
| moderator
|
Пост N: 267
Зарегистрирован: 11.02.10
|
|
Отправлено: 17.10.11 10:39. Заголовок: Vlad04 пишет: Но во..
Vlad04 пишет: цитата: | Но вот как обратиться к контролам этой формы? |
| Обратите внимание на следующие универсальные формы псевдо-ООП кода: ThisWindow.Name This.Name ThisWindow.FocusedControl Возможно, это поможет написать унивесальную процедуру для различных однотипных форм.
|
|
|
|
| постоянный участник
|
Пост N: 253
Зарегистрирован: 13.10.05
|
|
Отправлено: 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()
|
|
|
|
| moderator
|
Пост N: 269
Зарегистрирован: 11.02.10
|
|
Отправлено: 17.10.11 13:17. Заголовок: Vlad04 пишет: Но пр..
Vlad04 пишет: цитата: | Но присвоить значение контролу во всех случаях ведет к ошибке (еще на этапе компиляции) |
| А если попробовать так: sNameF:=ThisWindow.Name SetProperty(sNameF,"Browse_2","Value",RecNo())
|
|
|
|
| постоянный участник
|
Пост N: 255
Зарегистрирован: 13.10.05
|
|
Отправлено: 17.10.11 13:51. Заголовок: Так все ок!..
Так все ок!
|
|
|
|