> procedure color_check();
>public
> { Public declarations }
>end;
>var
> Form1: TForm1;
> mouse: TPoint;
>implementation
>{$R *.dfm}
>procedure TForm1.color_check();
>var
> ran: integer; //случайное число, соответствующее
> //определенному цвету
>begin
> Randomize; //включаем генератор случайных чисел
> ran: = Random(6) + 1; //выбираем случайное число от 1 до 6
> //Назначаем форме цвет, соответствующий выбранному числу
> case ran of
> 1: Form1.Color:= clBlack;
> 2: Form1.Color:= clWhite;
> 3: Form1.Color:= clBlue;
> 4: Form1.Color:= clGray;
> 5: Form1.Color:= clYellow;
> 6: Form1.Color:= clGreen;
> end;
>end;
>procedure TForm1.FormCreate(Sender: TObject);
>begin
> GetCursorPos(mouse); //получаем координаты курсора мыши
> ShowCursor(False); //прячем курсор
>end;
>procedure TForm1.FormKeyPress(Sender: TObject; var Key:Char)
>begin
> Halt; //завершение работы программы
>end;
>procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
>begin
> if (X <> mouse.X) or (Y <> mouse.Y) then Halt;
>end;
>procedure TForm1.Timer1Timer(Sender: TObject);
>begin
> if Form1.AlphaBlendValue > 250
> then //проверяем: не полностью ли мы закрасили форму
> begin
> Timer1.Enabled:= False; //выключаем насыщение формы
> Timer2.Enabled:= True; //включаем обратный процесс
> end;
> //постепенное насыщение формы
> Form1.AlphaBlendValue:= Form1.AlphaBlendValue + 1;
>end;
>procedure TForm1.Timer2Timer(Sender: TObject);
>begin
> if Form1.AlphaBlendValue < 5
> then //если форма уже полностью прозрачная
> begin
> color_check(); //выбираем случайный цвет для формы
> Timer2.Enabled:= False; //выключаем второй таймер
> Timer1.Enabled := True; //включаем первый таймер
> end;
> //Уменьшаем прозрачность на 1
> Form1.AlphaBlendValue:= Form1.AlphaBlendValue – 1;
>end;
>end.
⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter05.
