Please help me to make game in Delphi 7 ! If you know some pages with Delphi 7 games source code, POST HERE!!

Reply

Who say is games are somthing hard to write ?!? here

//---------- code ---------
uses windows;

click1: integer;
click2: integer;
isclicked: boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
if (!iscliced) then begin
click1 := GetTickCount();
iscliced := TRUE;
end
else begin
click2 := GetTickCount();
Label1.Caption := IntToStr(click2 - click1);
iscliced := FALSE;
end;
end;

//---------------------------

And need form with one Label named Label1 and one Button named Button1 wit above code included to OnClickEvent;

///////////

Thi cool game show how fast player do dubble click in miliseconds

 

 

 

Reply