Ver Mensaje Individual
  #3  
Antiguo 09-07-2012
aoshishin1 aoshishin1 is offline
Registrado
NULL
 
Registrado: jul 2012
Posts: 9
Reputación: 0
aoshishin1 Va por buen camino
Muchas gracias por tu respuesta, ya supe cual fue el error, ahorra miduda es al siguiente, me gustaria saber que tanta versatibilidad tiene un hilo para correr en segundo plano un procedimiento que no es propio de el, pro ejemplo.

Código Delphi [-]

procedure THilo.Execute; 
var   i : integer; 
begin   
inherited;   
FreeOnTerminate := True;   
while not terminated do   
begin   
Synchronize(MostrarContador);   
end; 
end;

 procedure THilo.MostrarContador; 
begin   
FrmAuxialiar.MostrarCargando; 
end;

procedure TFrmAuxialiar.MostrarCargando;
var
  i:integer;
begin
 i:=1;
 While i>0 do
  begin
 i:=i+1; 
 end;
end;

Estoy forzando a un bucle infinito, y quiero ver si se respeta la concurrencia, pero al hacer esto se me traba la pantalla.
Me gustaria saber el por que, y si hay alguna manera que el procedimiento "Mostrarcargando" se pueda correr paralelamente sin definirlo dentro del hilo.

Muchas gracias!!!!!

Última edición por Casimiro Notevi fecha: 10-07-2012 a las 10:01:13. Razón: Cambiar [quote] por [delphi] !!!
Responder Con Cita