Hola a todos. Hoy os propongo un desafío que llevo tiempo encima de él.
El caso es que tengo unos eventos que hacen mogollón de cosas.
Por ejemplo, le doy a un botón de "Actualizar" y el evento hace cosas que pueden llevar unos veinte segundos. Entonces, mientras se realiza el proceso, me gustaría abrir un formulario con una label a modo de contador que fuese indicando el tiempo va transcurriendo.
Se me ocurrió lanzar un thread al inicio de la gestión del evento que abra un formulario y vaya actualizando la label, y matar el thread al final del proceso, pero ... oohhhh, el thread no hace nada hasta que termina todo el proceso.
Me gustaría saber si alguien ha resuelto algo así...
Por ejemplo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
th := tmythread.create(false); while true do begin end;
th.terminate; end;
Mientras tanto... el thread estaría haciendo:
procedure TmyThread.Execute;
begin
while not fin do
Synchronize(UpdateCaption)
end;
procedure TmyThread.UpdateCaption;
begin
Form1.Caption := floattostr(now);;
end;
---------------------------------------------
Lo que he visto es que el thread no empieza a funcionar hasta que termine el evento desde el cual se inició la ejecución del evento (y claro... empieza a funcionar caundo ya no hace falta).
Gracias a todos.