| Pregunta: | 5183 - EJECUTAR ANTES DE ENTRAR A UNA FORM |
| Autor: | Eduardo Meza Carmona |
| Hola. Quisiera saber como hacer para ejecutar un programa antes de que entre al form, me refiero al caso en el que en Visual Basic se puede hacer que la ejecución inicie desde un Sub Main, pero en Delphi, como se hace esto, esto lo quiero para comprobar ciertas condiciones antes de que se muestre el formulario principal, y dependiendo de eso se muestre uno u otro formulario, o pueda mostrar una u otra cosa. Por su atención gracias. | |
| Respuesta: | Ernesto Peñaloza |
| Podes utilizar el evento OnCreate | |
| Respuesta: | Carmelo |
| Si he comprendido bien tu pregunta, creo que podrías sobreescribir el evento "onloaded" y ejecutar ahí lo que quieras pues este evento se dispara justo antes de lanzar cualquier otra actividad del form. | |
| Respuesta: | Hugo Ortega H. |
| Hola... Lo puedes hacer editando el fuente del proyecto... menu Project/View Source... aparecerá una nueva ventana de edición con el codigo fuente del proyecto.... por ejemplo, la siguiente sección corresponde a lo que te comento... lo que hace es verificar que no exista otra instancia de la aplicación y pone una pantalla de presentacion... realmente puedes hacer lo que quieras o necesites... begin // Determinarmos si existe otra instancia de la apliación... if FindWindow(´TApplication´, ´SCCIS´) <> 0 then begin Application.MessageBox(´Imposible cargar el Sistema, está siendo ejecutado en esta misma computadora.´, ´Error al iniciar el sistema´, MB_ICONERROR); Application.Terminate; end; // El splah para la presentación... frmPresentacion := TfrmPresentacion.Create(Application); frmPresentacion.Show; frmPresentacion.Refresh; Application.Initialize; Application.CreateForm(TfrmPrincipal, frmPrincipal); Application.CreateForm(Tbd, bd); frmPresentacion.Release; Application.Run; // El programa inicia hasta aqui.... que es cuando se visualiza la forma principal del proyecto.... end. espero que te sirva...... EOF | |