Setlength(a,255);

for i:=1 to 100 - length(label1.caption) do

temp:=temp+' ';

Label1.Caption:= Label1.Caption +temp;

for i:=1 to 100 do a[i]:= Label1.Caption[i];

End;

Процедура обработки таймера 1:

procedure TForm1.Timer1Timer(Sender: TObject);

Begin

for i:=100 downto 2 do a[i]:=a[i-1];

a[1]:=a[100];

Label1.Caption:='';

for i:= 1 to 100 do

Label1.Caption:=Label1.Caption +a[i];

End;

Процедура обработки таймера 2:

procedure TForm1.Timer2Timer(Sender: TObject);

var z: integer;

Begin

randomize; if a[1]='П' then

Label1.Top:=random(Form1.Height-Label1.Height-10);

if j<20 then begin z:=random(7);

Case z of

0:col:='r';

1:col:='b';

3:col:='g';

4:col:='y';

5:col:='m';

6:col:='l';

End;

End;

if (j > 245)or(j<20) then h:=-h;

Case col of

'r': r:=j;

'g': g:=j;

'b': b:=j;

'y': begin r:=j; g:=j; end;

'm': begin r:=j; b:=j; end;

'l': begin g:=j; b:=j; end;

End;

Label1.Caption:=

'('+IntToStr(r)+','+IntToStr(g)+','+IntToStr(b)+')';

Label1.Font.Color:= rgb(r,g,b); inc(j,h);end;

Пример 1.2 "Убегающая" кнопка

На форме появляется текст вопроса “ ВыхотелибызакончитьМИРЭА?” и две кнопки “ Да ”и “ Нет ”. При попытке нажать кнопку “ Да ” она убегает. При нажатии на кнопку “ Нет ” выводится текстовое сообщение “ Ну и зря ”.

Процедура обработки движения мыши