Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Stopping Timer !!!

tarek_ahmedtarek_ahmed Member Posts: 11
this is a simple Timer Code
it starts but never stops

any ideaz?
[code]
var
TimerHandle:WORD;

procedure Timer(Wnd:HWnd;Msg,TimerID,dwTime:DWORD);stdcall;
begin
form1.Label1.caption := form1.label1.caption + 'p';
end;

procedure StartTimer(Interval:DWORD);
begin
TimerHandle:=SetTimer(0,0,Interval,@Timer);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
startTimer (1000);
end;
[/code]

or if anybody got a better timer code that would be great
and plz not to make my program stop responding to anything else :(

i don't want to use the normal timer component for personal reasons :)

Sign In or Register to comment.