On-line: PSP, гостей 3. Всего: 4 [подробнее..]
АвторСообщение
постоянный участник


Пост 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?
Такая же ситуация возникает, если одной функцией обрабатывать
вызовы из разных форм.
























<a href=http://www.bestmarket.com.ua >ноутбуки</a>























<a href=http://www.bestmarket.com.ua >ноутбуки</a>
Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 4 [только новые]


moderator




Пост N: 267
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 17.10.11 10:39. Заголовок: Vlad04 пишет: Но во..


Vlad04 пишет:

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


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

ThisWindow.Name

This.Name

ThisWindow.FocusedControl

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


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост 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()






Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 269
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 17.10.11 13:17. Заголовок: Vlad04 пишет: Но пр..


Vlad04 пишет:

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


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

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



Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 255
Зарегистрирован: 13.10.05
ссылка на сообщение  Отправлено: 17.10.11 13:51. Заголовок: Так все ок!..


Так все ок!

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 219
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет