Ver Mensaje Individual
  #14  
Antiguo 31-05-2007
Avatar de david_uh
david_uh david_uh is offline
Miembro
 
Registrado: may 2007
Ubicación: Arequipa, Perú
Posts: 227
Reputación: 18
david_uh Va por buen camino
Lightbulb

Ok gracias por sus aportes ya encontre la forma de actualizar la hora pero esto sin usar el control TTimer de delphi:
primero creamos este procedimiento



Código Delphi [-]
procedure TimerProc(hwnd : hwnd; uMsg: UINT; idEvent: UINT; dwTimer: DWORD); stdcall
begin
case idEvent of
2000:
begin
showmessage('id 2000 bitch');
end;
2001:
begin
showmessage('id 2001 hoe');
end;
end;




los numero 200 y 2001 son los manejadores de cada evento timer que
queramos en este caso del ejemplo solo manejo dos eventos (200 y 2001)
Con este còdigo establezco un timer cuyo manejador es 2001 por 3000 ms

Código Delphi [-]SetTimer(handle,2001,3000,@Timerproc)


y para detener el timer lo hago así

Código Delphi [-]KillTimer(handle,2001)



el ejemplo lo encontre en esta pagina
Espero les sirva gracias por sus respuesas
Responder Con Cita