Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-12-2010
Bauhaus1975 Bauhaus1975 is offline
Miembro
 
Registrado: may 2005
Ubicación: Málaga
Posts: 135
Poder: 20
Bauhaus1975 Va por buen camino
Continuar ejecución tras formHijo.Showmodal en formPadre

Hola de nuevo foreros

Seguramente será una pregunta tonta, pero no doy 'con la tecla'. Resulta que necesito mostrar un progressbar dentro de un formulario que abro mientras se realiza un proceso que tarda varios segundos (a modo de animación de espera). Y no sé cómo hacerlo porque al mostrar el formulario que contiene el progressbar, al hacer el '.show' se queda parada ahí la ejecución.

Pormenorizadamente:

Tengo un formulario (form1) donde se ejecuta un proceso. Y desde aquí llamo a otro form 'formEspera', que muestra el título de proceso que se está realizando y el progress bar:

Código Delphi [-]
formEspera := TformEspera.Create(Application);
                    try
                      formEspera.Inicio('ProcesoX', self);
                      // Lanzamiento del proceso
                      procesoX(...);
                      formEspera.Close();
                      showmessage('Proceso concluido');
                    finally
                      formEspera.Release;

Y formEspera, el formulario que se muestra a modo 'pop up' conteniendo el progressbar:

Código Delphi [-]
type
  TformEspera = class(TForm)
    ProgressBar1: TProgressBar;
    lbTitulo: TLabel;
    Timer1: TTimer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    accion : String;
    padre : TForm;
  public
    { Public declarations }
    procedure inicio(pAccion:String; padre:TForm);
  end;
var
  formEspera: TformEspera;
implementation

procedure TformEspera.FormShow(Sender: TObject);
begin
    self.padre.SetFocus;
end;
procedure TformEspera.inicio(pAccion:String; padre:TForm);
begin
    self.accion := pAccion;
    // Ponemos título
    if (self.accion = 'ProcesoX') then
        self.lbTitulo.Caption := 'Realizando proceso X';
    // Arrancamos timer para que controle el progress bar
    self.Timer1.Enabled := true;
    // Mostramos formulario
    self.showmodal;
end;

procedure TformEspera.Timer1Timer(Sender: TObject);
begin
    self.ProgressBar1.StepIt;
    self.update;
end;

procedure TformEspera.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    self.Release();
end;

// END UNIT
end.

¿Alguien puede decirme como hacer para que una vez mostrado el formEspera, quede en primer plano este formulario con el progrssbar andando, y siga la ejecución por form1?

Gracias y un saludo.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
continuar una numeracion con Qreport Alfredo Impresión 7 23-10-2007 11:05:53
Ejecutar sentencias tras ejecución de otro programa Novás Varios 2 30-08-2007 15:06:28
Key violation. Continuar con siguiente registro CHiCoLiTa Conexión con bases de datos 11 14-02-2007 21:48:37
Continuar numeracion en impresion !! Help RJF Impresión 2 07-11-2006 04:43:17
No se continuar pepelu1975 Varios 1 19-02-2004 11:02:22


La franja horaria es GMT +2. Ahora son las 23:37:52.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi