54-сурет
procedure TForm1.TimerTimer(Sender: TObject);
begin
EraseFace(fx,fy);
// бет бейненің жаңа қалпы
fx:= Random(ClientWidth-30);//30 – бет бейне диаметрі
fy:= Random(ClientHeight-30);
PaintFace(fx,fy);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// бет бейненің бастапқы қалпы
fx:=100;
fy:=100;
Randomize; //кездейсоқ сандар генераторын инициализациялау
end;
// тышқан батырмасын шерту
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inc(n); // шерту саны
if (x > fx) and (x < fx+30) and
(y > fy) and (y < fy+30)
then begin
// бет бейнені шерту
inc(p);
end;
if n = 10 then
begin
// ойын аяқталды
Timer.Enabled := False; //таймерді тоқтату
ShowMessage('Атылғаны: 10. Тигені: ' + IntToStr(p)+'.');
EraseFace(fx,fy);
Label1.Visible := True;
Button1.Visible := True;
// енді батырма мен хабарлама қайта көрінді
end;
end;
55-сурет
// Ok батырмасын шерту
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Visible := False; // хабарламаны жасыру
Button1.Visible := False; // батырманы жасыру
Timer.Enabled := True; // таймерді іске қосу
end;
end.
Достарыңызбен бөлісу: | 
