Cita:
el problema es que no veo el formulario (form1.onshow) hasta que se han ejecutado todas las operaciones
|
Hola.
Si los procesos transcurren antes o durante el evento FormShow, no veo solución en forma directa.
Pero creo que lo que te va a funcionar, es crear y capturar un mensaje AfterShow.
Ejemplo:
Código Delphi
[-]
...
const
TAREAS_AFTER_SHOW = WM_USER + 300;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
procedure TareasAfterShow(var Msg: TMessage); message TAREAS_AFTER_SHOW;
public
end;
...
interface
...
procedure TForm1.FormShow(Sender: TObject);
begin
Caption:= 'Evento OnShow';
PostMessage(Handle, TAREAS_AFTER_SHOW, 0, 0);
end;
procedure TForm1.TareasAfterShow(var Msg: TMessage);
begin
Sleep(2000); ShowMessage('Tareas finalizadas');
end;
...
Saludos.