Как привязать таймер к главному окну VFP

Объект таймер появился в VFP3. Он может выполнять определенный код регулярно, через определенное время. Так же это невидимый компонент. Его легко поместить на фому, но как его поместить на главное окно VFP ?

Как привязать таймер к главному окну VFP

Системная переменная _SCREEN содержит свойства управляющие главным окном VFP, которым можно управлять аналогично любой форме.

Следующий код ставит таймер на главное окно, аналогичный код может использовать для установки любого компонента на главное окно.

Нажмите F6 для удаление таймера.

* Для удаления объекта:
ON KEY LABEL F6 _SCREEN.RemoveObject('oTime')

* Активизация таймера:
_SCREEN.AddObject('oTime','MyTimer')

* Определение класса. Событие TIMER срабатывает каждую секунду, и отображается
* WAIT WINDOW
DEFINE CLASS MyTimer AS Timer
Interval= 1000
PROCEDURE Timer
WAIT WINDOW (TIME()) NOWAIT
ENDPROC
ENDDEFINE

Автор: Microsoft KB

Автор публикации

не в сети 2 месяца

Joys

2
Комментарии: 4Публикации: 227Регистрация: 25-06-2000
0
Оставить комментарий
Авторизация
*
*
Генерация пароля