delphi espera a que la ventana se muestre por completo para ejecutar un fragmento de código
¿Te refieres a algo como el efecto de inicio de WORD usando Delphi para crear una pantalla intermitente (Autor: Shi Lu? El programa WINDOWS cuidadosamente escrito muestra precauciones de inicio, que se llama pantalla de presentación (pantalla de presentación). Usando un poco de contenido, puedes agregar mucho color a la visualización del programa. Debido a que el proyecto en sí crea la ventana principal del programa y la pantalla de inicio debe aparecer antes de que se cree la ventana principal, el archivo del proyecto debe crear su propia pantalla de inicio. Esto significa que los usuarios deben modificar el código fuente para crear archivos de proyecto, lo que normalmente no es necesario en la programación DELPHI. El siguiente procedimiento describe la creación de una pantalla de chisporroteo. 1. Inicie un nuevo proyecto. Nombra el formulario MainForm y establece su propiedad Caption en SplashinDemo. Guarde este proyecto en un directorio, como C:\Projects\Splashin. Nombra la unidad MainForm Main y el archivo del proyecto Splashin. 2. Inserte un componente de botón en MainForm. Cambie la propiedad Nombre del botón a ExitButton y su propiedad Título a Salir. Cree un controlador para el evento OnClick del botón Exit e inserte una declaración Cerrar entre las palabras clave de inicio y fin del proceso. 3. Seleccione el comando Archivo|Nuevo formulario o haga clic en el botón de velocidad Nuevo formulario. Añade un nuevo formulario. 4. Cambie la propiedad Nombre de este formulario a SplashForm y elimine su propiedad Título. Además, cambie su propiedad BorderStyle a bsnone y establezca los tres subvalores en BorderIcons en False. 5. Guarde este proyecto. Cuando Delphi le solicite al lector que proporcione un nombre de archivo de unidad, asegúrese de que el directorio actual sea el directorio correcto. Ingrese Splash como nombre del archivo de unidad para SplashForm. 6. Establezca la propiedad Habilitada de SplashForm en Falso. No queremos que el usuario pueda proporcionar comandos de teclado y mouse a la ventana, que es uno de los casos raros. En este ejemplo, queremos que el programa tenga control total sobre la visualización del SplashForm. 7. Dado que la ventana no tiene contorno, inserte un objeto de componente Bisel de la clase de componente adicional. Esto ayuda a definir los bordes de la ventana. Establezca la propiedad Align de Bevel1 en alClient. Al mismo tiempo, cambie la propiedad Shape del objeto a bsFrame y su propiedad Style a bsRaised. Estos valores los determina el usuario. 8. Inserte los componentes que desea usar en SplashForm. No inserte ningún botón u otro control interactivo aquí. La propia aplicación muestra y elimina el cuadro de diálogo de inicio intermitente. 9. Seleccione el menú Proyecto. Resalte el menú emergente del proyecto Splash. Seleccione el comando Opciones. En el cuadro de diálogo Opciones del proyecto resultante, seleccione la pestaña Formularios. Tenga en cuenta que MainForm y SplashForm están en la lista de formularios creados automáticamente. Resalte cada formulario y haga clic con el botón derecho del mouse para moverlo al formulario Disponible. Todos los formularios de Delphi se crean automáticamente en la memoria durante el tiempo de ejecución, lo que consume memoria y recursos del sistema. En tal caso, el programa crea el formulario en tiempo de ejecución y el lector debe eliminar el formulario de la lista creada automáticamente. Cierre la ventana Opciones de proyecto. 10. A continuación, modifique el código fuente del proyecto para mostrar el cuadro de diálogo de dispersión antes de que se muestre la ventana principal. Aquí debe insertar declaraciones en el archivo del proyecto para que coincidan con el archivo del proyecto Splash.dpr.
El código fuente del proyecto es el siguiente: el programa Proyecto3 usa Formularios, principal en 'main.pas' {MainForm}, bienvenida en 'splash.pas' {SplashForm} {$R *.RES} comienza SplashForm:=TSplashForm.Create; (Aplicación); SplashForm.Show; SplashForm.Update; Application.CreateForm(TMainForm,MainForm); SplashForm.Run; El cuadro de diálogo de inicio chisporrotea muy rápidamente y es posible que el usuario no tenga la oportunidad de verlo. Para forzar que el cuadro de diálogo permanezca varias veces