procedure TForm2.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
clientheight:=476; //form büyüklügü
clientwidth:=715; //form büyüklügü
case key of
VK_up:Image1.Top:=Image1.Top-20; //yukariya
20br çikart
VK_down:Image1.Top:=Image1.Top+20; //asagiya
20br indir
VK_left:image1.Left:=image1.Left-20;
//sola 20 br git
VK_right:image1.Left:=image1.Left+20;
//sag 20br git
end;
procedure TForm2.FormActivate(Sender: TObject);
begin
timer1.Enabled:=true; //timer1 çalistir
timer2.Enabled:=true; //timer2 çalistir
timer3.Enabled:=true; //timer3 çalistir
c:=3; //cani 3 ver
s:=0; //puani sifirla
label2.Caption:=inttostr(s); //puani
göster
end;
|
