Модератор: Дед Пахом
Код: Выделить всё
thread1 LONG
thread2 LONG
thread1=START(SomeWin1, 25000)
thread2=START(SomeWin2, 25000)
а чегоiBAH писал(а):Здравствуйте, хочу выполнить фокус на дочернее окно в Frame... извините за тривиальный вопрос... как это сделать?
из Frame запускаются разные процессыпо нажатию на кнопку хочу переключать фокус между окнами? не знаю какКод: Выделить всё
thread1 LONG thread2 LONG thread1=START(SomeWin1, 25000) thread2=START(SomeWin2, 25000)
ЗЫ делал EVENT:User в SomeWin...
в EVENT:User делал что-то типа SELECT(?SomeControl)
по кнопке в Frame POST(EVENT:User,,thread)...
ничего не получилось...
Код: Выделить всё
SETTARGET(,thread1)1. Общеупотребительно использование не специального Event, а Event:GainFocus для этой цели, видел несколько раз. Заодно окно, вытаскиваемое вперёд, обновится.Admin писал(а):EVENT:BringToTop EQUATE(EVENT:User+123)
...
POST(EVENT:BringToTop,,thread1)
...
CASE EVENT()
OF EVENT:BringToTop
Window{PROP:Active} = TRUE
END
надеюсь все понятно ...
я так делал, че то не работает... в дочернем окне то чего и где писать?Andrew™ писал(а): а чегоне катит, я юзаюКод: Выделить всё
SETTARGET(,thread1)
дык канечна понятно... тока как решить такую проблему... если из одного из окон, запущеных процессом, открыть какую-нибудь форму, то при переключении фокуса на другое окно обратно уже не вернуться пока не закроем формуAdmin писал(а):EVENT:BringToTop EQUATE(EVENT:User+123)
...
POST(EVENT:BringToTop,,thread1)
...
CASE EVENT()
OF EVENT:BringToTop
Window{PROP:Active} = TRUE
END
надеюсь все понятно ...
?iBAH писал(а):я так делал, че то не работает... в дочернем окне то чего и где писать?Andrew™ писал(а): а чегоне катит, я юзаюКод: Выделить всё
SETTARGET(,thread1)
Код: Выделить всё
tmp &WINDOW
SETTARGET(,ThreadNo)
tmp &= SYSTEM{PROP:Target}
tmp{PROP:Active} = True