14 respuestas en este tema

[egostar]

Hola

Necesito realizar unos procesos en el momento de crear una aplicación, resulta que mientras ejecuta los procesos no se muestran los componentes visuales hasta que el proceso es finalizado.

No puedo utilizar el evento OnShow porque me duplica los procesos.

La pregunta es..... ¿ Hay forma de evitar este efecto o existe algún metodo de realizar este proceso en medio de los eventos OnCreate y OnShow ?

Bueno, una imagen vale mas que 1000 palabras.

Salud OS

Archivos adjuntos

•  1512_c8657c628ba79886594009b64246295f21edc77f.jpg   16,59KB   5 descargas

[TiammatMX]

Hola

Necesito realizar unos procesos en el momento de crear una aplicación, resulta que mientras ejecuta los procesos no se muestran los componentes visuales hasta que el proceso es finalizado.

No puedo utilizar el evento OnShow porque me duplica los procesos.

La pregunta es..... ¿ Hay forma de evitar este efecto o existe algún metodo de realizar este proceso en medio de los eventos OnCreate y OnShow ?

Bueno, una imagen vale mas que 1000 palabras.

Salud OS

Posiblemente, OnActivate (si será una ventana modal, por ejemplo) o generar dentro del OnCreate la visualización por medio de parámetros. Ejemplo:

delphi

procedure MenuItem1(Sender:TObject);
begin
  LaPantalla := TLaPantalla.Create(Self);
  LaPantalla.Elcontrol.Visible := True;
  LaPantalla.OtroControl.Visible := True;
end;

Creo que ésto puede funcionarte.

[egostar]

Gracias amigo Felipe.mx, resulta que es la forma Principal, de hecho es la única forma que tiene el programita. Hice lo que propones antes de ejecutar los procesos pero sigue sin mostrar los componentes visuales.

Salud OS

[TiammatMX]

Gracias amigo Felipe.mx, resulta que es la forma Principal, de hecho es la única forma que tiene el programita. Hice lo que propones antes de ejecutar los procesos pero sigue sin mostrar los componentes visuales.

Salud OS

No, pos así visto..., creo que el OnActivate sería la mejor opción..., por que no creo que haya un evento intermedio entre OnCreate y OnShow, que sería lo que podrías usar.

Recordar: OnCreate CREA y propone la forma y su comportamiento. OnShow muestra visualmente la forma y ejecuta el comportamiento visual de los controles contenidos en ella...

O al menos, así me lo platicaron en el curso.

[Héctor Randolph]

Hola Eliseo

Prueba con este código, como puedes ver ahora tendrás un evento que se ejecuta justo después del Show o después del Create puedes elegir cualquiera de los dos.

Saludos

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
const
  WM_AFTER_SHOW = WM_USER + 300;
  WM_AFTER_CREATE = WM_USER + 301;
 
 
type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW;
    procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormShow(Sender: TObject);
begin
  PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);
end;
 
 
procedure TForm1.WmAfterShow(var Msg: TMessage);
begin
  ShowMessage('Después del Show!');
end;
 
procedure TForm1.WmAfterCreate(var Msg: TMessage);
begin
  ShowMessage('Después del Create!');
end;
 
 
end.

[escafandra]

En estos casos, ¿no es mejor colocar un splash?. Si permitimos que el formulario principal se muestre da la sensación de cuelgue...

Otra forma simple de realizar lo que quieres, salvando el excelente truco de Héctor Randolph,  es colocar un timer cuyo evento sólo se ejecutará una vez, el timer comenzará a funcionar tras crearse el formulario y ser capar de recibir mensajes, con lo que ya se estará viendo completamente.

Saludos.

[egostar]

Hola Eliseo

Prueba con este código, como puedes ver ahora tendrás un evento que se ejecuta justo después del Show o después del Create puedes elegir cualquiera de los dos.

Saludos

Ahora lo pruebo amigo Hector.

En estos casos, ¿no es mejor colocar un splash?. Si permitimos que el formulario principal se muestre da la sensación de cuelgue...

Otra forma simple de realizar lo que quieres, salvando el excelente truco de Héctor Randolph,  es colocar un timer cuyo evento sólo se ejecutará una vez, el timer comenzará a funcionar tras crearse el formulario y ser capar de recibir mensajes, con lo que ya se estará viendo completamente.

Saludos.

El splash no lo he considerado sin embargo lo tengo como última alternativa, lo del timer lo pruebo ahora mismo.

Muchas gracias amigos.

Salud OS

[Héctor Randolph]

Hice algunas pruebas y creo que esto puede funcionar

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
const
  WM_AFTER_CREATE = WM_USER + 301;
 
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
 
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);
end;
 
 
 
procedure TForm1.WmAfterCreate(var Msg: TMessage);
var
  I: Integer;
begin
  Update;
  //Entra en el proceso lento
  for I:= 0 to 10 do
  begin
    Sleep(500);
  end;
end;
 
 
end.

[egostar]

Gracias amigo Felipe.mx, resulta que es la forma Principal, de hecho es la única forma que tiene el programita. Hice lo que propones antes de ejecutar los procesos pero sigue sin mostrar los componentes visuales.

Salud OS

No, pos así visto..., creo que el OnActivate sería la mejor opción..., por que no creo que haya un evento intermedio entre OnCreate y OnShow, que sería lo que podrías usar.

Recordar: OnCreate CREA y propone la forma y su comportamiento. OnShow muestra visualmente la forma y ejecuta el comportamiento visual de los controles contenidos en ella...

O al menos, así me lo platicaron en el curso.

NO habia reparado en ese evento, ahora lo pruebo y les comento con cual alternativa me quedo Gracias amigo Felipe.mx

Salud OS

[egostar]

Hola

Les informo, todos los métodos hacen exactamente lo mismo, ya se ve la forma con todos sus controles, ahora el punto es que se queda bloqueada hasta que termina de procesar la información.

Seguiré probando otras alternativas, muchas gracias.

Salud OS

[Rolphy Reyes]

Saludos.

Después de implementar la alternativa de Héctor Randolph, puedes mezclarlo con Hilos; esta opción es buena siempre y cuando los procesos que se ejecuten dentro de los botones no necesiten "algo" de lo que el Create realiza.

Prueba y postea!

[egostar]

Saludos.

Después de implementar la alternativa de Héctor Randolph, puedes mezclarlo con Hilos; esta opción es buena siempre y cuando los procesos que se ejecuten dentro de los botones no necesiten "algo" de lo que el Create realiza.

Prueba y postea!

Interesante punto, los botones solo minimizan la aplicación como trayIcon y la cierran, no tienen otro objetivo. Intentaré y les comento.

Salud OS

[egostar]

Bueno, pues me acordé de la genialidad de mi little bro cHackAll y utilicé su unidad _busy.pas y quedo perfecto con la combinación del evento OnActivate.

Muchas gracias a todos.

Salud OS

Archivos adjuntos

•  1516_7bb32037739b8a3442f9edb5654096b1dd2110ca.png   7,26KB   4 descargas

[Rolphy Reyes]

Saludos.

El uso del evento OnActivate se debe de usar con sumo cuidado, porque este se ejecuta cada vez que el formulario se activa, y dependiendo de los procesos que realices en dicho evento podrías causar mal funcionamiento o duplicidad de procesos cuando solo se necesite ejecutar una sola vez. 

Se debe tener sumo cuidado.

[egostar]

Saludos.

El uso del evento OnActivate se debe de usar con sumo cuidado, porque este se ejecuta cada vez que el formulario se activa, y dependiendo de los procesos que realices en dicho evento podrías causar mal funcionamiento o duplicidad de procesos cuando solo se necesite ejecutar una sola vez. 

Se debe tener sumo cuidado.

Muchas gracias amigo Rolphy, lo tomaré en cuenta.

Salud OS