> р5.Visible:= False;
> RadioGroup1.Visible:= False;
> Label1.Visible:= False;
> an1.Visible:= False;
> an2.Visible:= False;
> an3.Visible:= False;
> an4.Visible:= False;
> Label2.Visible:=True;//показываем метку с результатом
> Label2.Align:= alClient;//растягиваем ее на всю форму
> //Отображаем процент правильных ответов
> Label2.Caption:= 'Правильных ответов' + IntToStr(balls*(100 div 5))+'%';
>end;
>procedure TForm1.N4Click(Sender: TObject);
>begin
> Halt; //выход из программы
>end;
>procedure TForm1.p1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p1.BevelInner:= bvLowered;
> p1.BevelOuter:= bvRaised;
>end;
>procedure TForm1.p1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p1.BevelInner:=bvRaised;
> p1.BevelOuter:=bvLowered;
>end;
>procedure TForm1.p2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p2.BevelInner:= bvLowered;
> p2.BevelOuter:= bvRaised;
>end;
>procedure TForm1.p2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p2.BevelInner:=bvRaised;
> p2.BevelOuter:=bvLowered;
>end;
>procedure TForm1.p3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p3.BevelInner:= bvLowered;
> p3.BevelOuter:= bvRaised;
>end;
>procedure TForm1.p3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p3.BevelInner:=bvRaised;
> p3.BevelOuter:=bvLowered;
>end;
>procedure TForm1.p4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p4.BevelInner:= bvLowered;
> p4.BevelOuter:= bvRaised;
>end;
>procedure TForm1.p4MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p4.BevelInner:=bvRaised;
> p4.BevelOuter:=bvLowered;
>end;
>procedure TForm1.p5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p5.BevelInner:= bvLowered;
> p5.BevelOuter:= bvRaised;
>end;
>procedure TForm1.p5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>begin
> p5.BevelInner:=bvRaised;
> p5.BevelOuter:=bvLowered;
>end;
>procedure TForm1.N1Click(Sender: TObject);
>begin
> Randomize;
> ss:= zz;
> start(); //начало теста
>end;
>procedure TForm1.FormDestroy(Sender: TObject);
>begin
> DeleteFile('c:\base.bsd'); //удаляем расшифрованную базу
>end
>end.
⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter_13.
