| |
|
|
Respuesta:
Lo primero que debes hacer es
crear el form de presentación. Este Form no debe ser
autocreable, por lo que deberás pasarlo de la lista de Forms
autocreables a la lista de Forms disponibles que se encuentra en
las opciones del administrador del proyecto actual (Proyect Manager).
Luego deberás escribir el siguiente código en el archivo
del proyecto(Proyect Source):
|
|
...
begin
//Crea form de presentacion y lo muestra
fmPresenta := TFmPresenta.Create(Application);
FmPresenta.Show;
Application.Initialize;
Application.CreateForm(TfmPpal, fmPpal);
FmPresenta.Free; //Oculta y Destruye el form
de presentacion
Application.Run; //Ahora empieza a correr la
aplicación
end.
|
|
|
|
Posiblemente
si el form tiene alguna imagen o algún otro componente visual,
este no se va a mostrar. En tal caso podría utilizarse el
siguiente código:
|
|
procedure TfmPresenta.FormActivate(Sender: TObject);
begin
//Fuerza la actualización de los Componentes
del form
Refresh;
end;
|
|
|
| Opcionalmente
puedes agregar una barra de progreso, o algún componente similar,
en el form de presentación y a medida que vayas creando los
demás Forms u Otros Componentes del proyecto ir actualizando
dicha barra. El código para actualizar la barra podría
ser algo como: |
|
procedure
TformN.FormCreate(Sender: TObject);
begin
...
//Incrementa progreso en la barra
FmPresenta.ProgressBar1.StepIt;
...
end; |
|
|
