Ver Mensaje Individual
  #4  
Antiguo 12-11-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
Eso es otra cosa... no estas llamando a un procedure dentro de otro, sino que estas activando un Timer que en otro hilo ejecuta tu procedure al mismo tiempo.
Porqué no trabajas con una variable Boolean, le asignas el Active a esta y cuando termina tu procedure lo activas/desactivas?


Código:
procedure TForm1.TCPServerExecute;
var
  bTimerActive: boolean;
begin
  bTimerActive := Timer1.Active;
  ...
  if comando = 'nuevo' then
    bTimerActive := True;
  ...
  Timer1.Active := bTimerActive;
end;

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita