Реферат: Работа с базами данных через интерфейс

if Form1.Tag="1" then

Form1.Image1.Picture="d:\msdev\german\croach2.bmp"

Form1.Tag="2"

Form1.Image1.Left=Form1.Image1.Left+10

else

Form1.Image1.Picture="d:\msdev\german\croach1.bmp"

Form1.Image1.Left=Form1.Image1.Left+10

Form1.Tag="1"

Endif

Form1.Label1.Caption=TIME()

Здесь добавлена строка Form1.Label1.Caption=TIME() для отображения времени.

Теперь зададим размер и цвет шрифта на компоненте LABEL1: FontSize=16 (размер шрифта), ForeColor – цвет шрифта. Кроме того, от времени оставим только секунды:

if Form1.Tag="1" then

Form1.Image1.Picture="d:\msdev\german\croach2.bmp"

Form1.Tag="2"

Form1.Image1.Left=Form1.Image1.Left+10

else

Form1.Image1.Picture="d:\msdev\german\croach1.bmp"

Form1.Image1.Left=Form1.Image1.Left+10

Form1.Tag="1"

Endif

s= TIME()

k=AT(":",s)

s=SUBSTR(s,k+1,LEN(s))

k=AT(":",s)

s=SUBSTR(s,k+1,LEN(s))

s=ALLTRIM(s)

Form1.Label1.Caption=s

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