Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
Код: Выделить всё
If Procname_thread <> 0 ! Если есть уже запущенная
! Можно вытащить окно уже запущенной задачи вперёд
SetTarget(, Procname_thread)
0{Prop:Active} = True
SetTarget
Post(Event:GainFocus,,Procname_Thread)
! И завершимся
Return Level:fatal ! Это в ABC
else
Procname_thread = Thread()
end
Код: Выделить всё
If ProcName_Thread = Thread()
ProcName_Thread = 0
End
Искал же. Наверно, не по тем словам.Игорь Столяров писал(а):Так вот же ископаемые терки на эту тему: viewtopic.php?f=1&t=2340&p=11254&hilit=%D0%B7%D0%B0%D0%BF%D1%80%D0%B5%D1%82+%D0%B2%D1%8B%D0%B7%D0%BE%D0%B2%D0%B0#p11254
Как отцы учили не пойду. Потому что естьДед Пахом писал(а):Мы как отцы учили - глобальные переменные
Спасибо, Юрий. Красиво реализовано.Yufil писал(а):В комплекте FreeABC есть подходящий шаблон (ThreadLimit, файл vsa_thrx.tpw), рекомендуется
Сделано всё по уму в этом шаблоне. GlobalRequest = SelectRecord учитывается. Мне понравилось, что шаблон только для одной процедуры (данный шаблон), и свой текст лепит в процедуру, не затрагивая фрейм, глобальные переменные, dll... И потом. Поскольку такой запрет нужен для специфических процедур, то, в общем-то логично, что запрет полный, и это решает процедура. У меня так - процедуры не должны вызываться два раза ниоткуда. Проверка на GlobalRespect, в принципе, лишняя даже.Admin писал(а):Можно запускать только одну копию BrowseGoods но давать возможность запустить ее же с GlobalRequest = SelectRecord
Плюсану, делаю аналогично. Для справочников и журналов документов. Отчеты (окна с расчетом каких-либо сводных итогов) не ограничиваются. Отслеживается по глобальной очереди открытых окон/потоков. Есть еще близкая по смысловой нагрузке тема - переключение в поток открытого документа при попытке его повторного открытия.Игорь Столяров писал(а): 2. Можно при повторном вызове послать в ранее открытое окно событие, развернуть и сделать его активным (мой случай).
Попробовал, работает, но окно не вытаскивается наверхYufil писал(а): Если не подходит - внутри вызываемой процедуры (mdi-окна) заводится переменная Procname_thread Long(0), Static Сразу после запуска проверяется Код: Выделить всёIf Procname_thread <> 0 ! Если есть уже запущенная ! Можно вытащить окно уже запущенной задачи вперёд SetTarget(, Procname_thread) 0{Prop:Active} = True SetTarget Post(Event:GainFocus,,Procname_Thread) ! И завершимся Return Level:fatal ! Это в ABCelse Procname_thread = Thread() end
Вытаскивается. В шаблоне вытаскивается. Вы неправильно что-то делаете.Артур писал(а):Попробовал, работает, но окно не вытаскивается наверх
Код: Выделить всё
IF GlobalRequest <> SelectRecord ! ThreadLimit (ABC Free)
IF NOT ActiveThread:Preferences ! ThreadLimit (ABC Free)
ActiveThread:Preferences = THREAD() ! ThreadLimit (ABC Free)
vs::ThisThreadActive = THREAD() ! ThreadLimit (ABC Free)
ELSE ! ThreadLimit (ABC Free)
POST(EVENT:GainFocus,,ActiveThread:Preferences) ! ThreadLimit (ABC Free)
RETURN Level:Fatal ! ThreadLimit (ABC Free)
END ! ThreadLimit (ABC Free)
END ! ThreadLimit (ABC Free)