Mam taki kod:
procedure Odliczanie(handle:hwnd;uMsg,idEvent,Time:cardinal);
begin
i := Succ(i);
form1.Label1.Caption := IntToStr(i);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
i := 0;
SetTimer(handle,48,1000,@Odliczanie); //stawiamy timera
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
KillTimer(handle, 48);
end;
Buttonem1 zapalam timera, na labelu zamiast sekundowe odliczanie 1..2..3..4.. dostaje co sekunde 2..4..6..8. Co tu jest grane?