Проектирование класса в среде VFP (вариант Часы)

Название

Измененные свойства

Label1

Caption Новосибирское время

Label2

CaptionУстановите время оповещения

Text1

InputMask 99:99:99 устанавливаем формат времени

Timer1

this.parent.label4.caption = TIME()

if (this.parent.text1.value == TIME() and this.parent.check1.value==0) then

       MessageBox(‘Раздаётся бой курантов!’)

endif

Label4

InitEvent this.parent.label4.caption = TIME()

Command2

InitEvent this.parent.command2.caption = 'Завести'

ClickEvent

if (this.parent.check1.value == 0) then

      this.parent.label3.caption = 'Будильник выключен'

      this.parent.command2.caption = 'Завести'

      this.parent.check1.value = 1

else

      this.parent.label3.caption = 'Будильник заведен'

      this.parent.command2.caption = 'Выключить'

      this.parent.check1.value = 0

endif

Image1

Вставлена картинка будильника

Check1

Используется в процедурах, для других свойств

Label 3

this.parent.label3.caption = ‘Будильник выключен’