Hola, tengo este código y quiero que Label1 actualice su Caption con el mensaje 'Procesando' y cuando acabe tres segundos después, que es lo que dura mi proceso aproximadamente, se actualice con el mensaje 'Procesado'.
Código Delphi
[-]
procedure MiClase.Procesar;
begin
Label1.Caption := 'Procesando';
repeat
until ;
end;
procedure MiClase.GestionarProceso;
begin
Procesar;
Label1.Caption := 'Procesado';
end;
El problema es que el mensaje 'Procesando' lo actualiza inexplicablemente después del proceso con lo que nunca llega a verse.
Realmente lo que ocurre es:
1.- Procesa el repeat until
2.- Actualiza el caption de Label1 a Procesando
3.- Actualiza el caption de Label1 a Procesado
¿Qué he de hacer para que lo haga en el tiempo adecuado? ¿Por qué hace esto Delphi?
Gracias.