Un programa de Windows cuidadosamente escrito muestra precauciones de inicio, llamada pantalla Splash. Usando un poco de contenido, puede agregar mucho color a la visualización del programa.
Dado que el proyecto en sí crea la ventana principal del programa y la pantalla de pulverización 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 el usuario debe modificar el código fuente para crear el archivo del proyecto, que generalmente no se requiere en la programación de Delphi. El siguiente proceso introduce el proceso de configuración de una pantalla de pulverización.
1. Comience un nuevo proyecto. Nombre el formulario MainForm y establezca su propiedad de subtítulos en Splashindemo. Guarde este proyecto en un directorio, como C: ProjectsSplashin. Nombra la unidad principal principal y nombre el archivo de proyecto Splashin.
2. Inserte un componente de botón en Mainform. Cambie la propiedad de nombre del botón a ExitButton y su propiedad de subtítulos para salir. Cree un procesador para el evento OnClick de ExitButton, insertando una declaración cercana entre las palabras clave Begin y Fin del proceso.
3. Seleccione el archivo del archivo | Nuevo formulario, o haga clic en el nuevo botón de velocidad de formulario. Agregue una nueva forma.
4. Cambie la propiedad de nombre de este formulario a Splashform y elimine su propiedad de subtítulos. Además, cambie su propiedad Borderstyle a Bsnone y establezca las tres subvaloras bajo Bordericons a falsos.
5. Guarde este proyecto. Cuando Delphi solicite al lector que proporcione el nombre del archivo de la unidad, asegúrese de que el directorio actual sea el directorio correcto. Ingrese Splash para el nombre de archivo de la unidad de Splashform.
6. Establezca la propiedad habilitada de SplashForm a FALSE. Este es uno de los casos raros en los que los usuarios no desean proporcionar comandos de teclado y mouse a Windows. En este ejemplo, queremos que el programa tenga control total sobre la visualización de Splashform.
7. Dado que la ventana no tiene esquema, inserte un objeto de componente bisel en la clase de componentes adicionales. Esto ayuda a definir los bordes de la ventana. Establezca la propiedad alineada de Bevel1 a Alclient. Al mismo tiempo, cambie la propiedad de forma del objeto a BSframe y cambie su propiedad de estilo a Bsraised. Estos valores están determinados por el usuario.
8. Inserte los componentes que desea usar en Splashform, no inserte ningún botón u otros controles interactivos aquí. La aplicación misma muestra y elimina el cuadro de diálogo Inicio de pulverización.
9. Seleccione el menú del proyecto. Resalte el menú emergente del proyecto Splash. Seleccione el comando de opciones. En el cuadro de diálogo Opciones de proyecto generado, seleccione la etiqueta de la página de formularios. Tenga en cuenta que MainForm y SplashForm están en la lista de formulario creada automáticamente. Resalte cada formulario y haga clic en el botón derecho del mouse para moverlo al formulario disponible. Todos los formularios de Delphi se crean automáticamente en la memoria en tiempo de ejecución, que consume recursos de memoria y 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 ProjectOptions.
10. A continuación, modifique el código fuente del proyecto para mostrar el cuadro de diálogo de pulverización antes de mostrar la ventana principal. Aquí debe insertar declaraciones en el archivo del proyecto para que coincidan con el archivo del proyecto Splash.prpr. El código fuente del proyecto es el siguiente:
Proyecto del programa3;
usos
Formularios,
Main en 'Main.pas' {MainForm},
Splash en 'splash.pas' {splashform};
{$ R *.res}
Comenzar
Splashform: = tsplashform.create (aplicación);
Splashform.show;
Splashform.update;
Application.CreateForm (tmainform, mainform);
Splashform.close;
Aplicación.run;
fin.
11. Si el programa se compila y se ejecuta en este momento, mostrará y eliminará el diálogo Inicio de pulverización muy rápidamente, para que el usuario no tenga la oportunidad de verlo. Para forzar el cuadro de diálogo a permanecer visible durante unos segundos, seleccione la forma principal del programa. Cree un procesador para el comando OnCreate del formulario. Agregue una variable entera larga llamada StopTime antes de la palabra clave. Inserte dos declaraciones entre Begin and End: una es una llamada a la función Windows GetTickCount. Establezca el tiempo de parada en el número de segundos que Windows está ejecutando; La lista de programas es la siguiente:
unidad principal;
interfaz
usos
Windows, mensajes, sysutils, clases, gráficos, controles, formularios, diálogos,
Stdctrls;
tipo
Tmainform = class (tForm)
EXITBUTTON: TBUTTON;
procedimiento ExitButtonClick (remitente: tobject);
procedimiento formulcreate (remitente: tobject);
Privado
{Declaraciones privadas}
público
{Declaraciones públicas}
fin;
varilla
Mainform: tmainform;
Implementación
{$ R *.dfm}
procedimiento tmainform.exitButtonClick (remitente: tobject);
Comenzar
cerca;
fin;
procedimiento tmainform.FormCreate (remitente: tobject);
varilla
Tiempo de detención: Longint;
Comenzar
tiempo de parada: = getTickCount div 1000;
mientras ((getTickCount Div 1000) ＜ (tiempo de parada+2)) lo haga
Dormir (1);
fin;
fin.
12. Presione F9 para compilar y ejecutar el programa.