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
Comment/Reply (w/o sign-up)
