Объект таймер появился в 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
Автор публикации
Комментарии: 5Публикации: 200Регистрация: 25-06-2000