Данный пример Формы содержит текстовый бокс и Контрол spinner. Вводимый вами текст отображается в системном окне WAIT WINDOW. С помощью контрола spinner вы можете изменять величину интервала времени (в секундах), когда выполняется соответствующая команда  WAIT WINDOW.

В соответствующем событии InteractiveChange контрола spinner, устанавливается величина соответствующего интервала времени для объекта timer. Значение свойства Interval измеряется в следующих единицах: 1/1000 секунды, поэтому значение контрола spinner умножается на 1000 (spinner.value * 1000).

	Копировать Код
THISFORM.Timer1.Interval = (THIS.Value * 1000)

В соответствующем событии Timer, выполняется заданная команда: WAIT WINDOW.

	Копировать Код
WAIT WINDOW ALLTRIM(THISFORM.Text1.Value) TIMEOUT 0.5

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

Задачи

Описание

Другие ссылки