Foros Club Delphi - nuevo en delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - nuevo en delphi (https://www.clubdelphi.com/foros/showthread.php?t=4895)

hola soy nuevo en delphi y queria hacer una consulta:
quiero ejecutar un procedimiento (para el caso puede ser un sleep(50) ) DESPUES de que se muestre la ventana principal de la aplicacion.
los ejemplos que vi realizan la accion dentro de FormCreate, pero asi primero hace el sleep y despues muestra la ventana.

lo que yo necesito es que se muestre la ventana por un lado y que se ejecute mi procedimiento por el otro, este procedimiento actualiza textos y progressbar dentro de la unica ventana principal.

alguno podria ayudarme con esto?
gracias

Podrías intentar usar el evento OnShow aunque no siempre da los resultados esperados ya que si tu procedimiento toma tiempo, por ejemplo cargar una tabla de una base de datos, entonces el formulario se muestra pero algunos controles, principalmente las etiquetas, no aparecen sino hasta que termina el procedimiento.

Lo que yo hago en ocasiones es mandar un mensaje personalizado para que se ejecute después del OnShow:

Código:

const

  CM_AFTERSHOW = WM_USER + 1;



type

  TForm1 = class(TForm)

    procedure FormShow(Sender: TObject);

  private

    procedure CMAfterShow(var Msg: TMessage); message CM_AFTERSHOW;

  end;



implementation



procedure TForm1.FormShow(Sender: TObject);

begin

  PostMessage(CM_AFTERSHOW);

end;



procedure TForm1.CMAfterShow(var Msg: TMessage);

begin

  { Aquí tu procedimiento }

end;

PostMessage manda el mensaje hasta después de que termine de procesarse el evento de manera que al llegar a CMAfterShow en principio el formulario ya está mostrado.

// Saludos

Mil Gracias, es justo lo que necesitaba :D