ADİL YILDIZ HAYATIN BİR KÖŞESİNDEN TUTUNAN HERKES İÇİN HERŞEY

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants,
  Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    Panel1: TPanel;
    Button1: TButton;
    Timer1: TTimer;
    Panel2: TPanel;
    Button2: TButton;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure hedefbelirle();
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  puan: integer;
 
implementation
 
uses Math;
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
hedefbelirle();
end;
 
procedure TForm1.hedefbelirle();
begin
panel1.Left:=Random(360)+40;
panel1.Top:=Random(360)+40;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
hedefbelirle();
Timer1.Enabled:=true;
puan:=0;
Label1.Caption:='0';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if((TrackBar1.Position>Panel1.Left) and
(TrackBar1.Position<Panel1.Left+Panel1.Width) and
(TrackBar2.Position>Panel1.Top) and
(TrackBar2.Position<Panel1.Top+Panel1.Height))then
begin
ShowMessage('Vurdun');
puan:=puan+10;
label1.Caption:=inttostr(puan);
end
else
begin
ShowMessage('Vuramadın');
puan:=puan-5;
label1.Caption:=inttostr(puan);
end;
 
hedefbelirle();
end;
 
end.