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 "Убегающая" кнопка

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

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

Procedure TForm1.Button1MouseMove

(Sender: TObject; Shift: TShiftState; X,Y: Integer);

Begin

if x<=Button1.Width div 2 then

Button1.Left:= Button1.Left +1

Else

Button1.Left:= Button1.Left -1;

if y<=Button1.Height div 2 then

Button1.Top:= Button1.Top +1

else Button1.Top:= Button1.Top -1;

if (Button1.Top < 0)or (Button1.Left < 0)or

(Button1.Top >Height-Button1.Height-15)

or (Button1.Left > Width-Button1.Width-15)

Then with Button1 do begin

Left:= 128; Top:=224;

End; end;

Процедура обработки щелчка на кнопке " Нет "

procedure TForm1.Button2Click(Sender: TObject);

Begin

Label1.Caption:= 'Ну и зря.';

Label1.Left:= (Width-Label1.Width) div 2;

End;

Date: 2015-07-25; view: 492; Нарушение авторских прав