5 replies to this topic

[cram]

Quiero compartir esta técnica que hace ver muy bien a los programas de aplicación.
Se trata de las splash screen o pantallas de iniciación o pantallas de presentación, que son ventanas que aparecen al inicio al ejecutar una aplicación antes de aparecer la ventana principal de la misma.
En esta ventana o mejor dicho en algún método de su objeto se puede implementar controles iniciales e incluso la apertura de archivos como INIs., leer configuraciones, etc.
Este trozo de código se escribe en lo que corresponde al programa.
También es conveniente deshabilitar la creación automática de muchas ventanas desde la configuración del proyecto. Esto depende de cada aplicación.

delphi

// Muestra la ventana de presentación de la aplicación
  frmSplash:= TFrmSplash.Create(Application);
  frmSplash.Show;
  frmSplash.Update;
 
// Crea el resto de las ventanas
  Application.CreateForm(TDM, DM); // Módulo de datos
  Application.CreateForm(TfrmPrincipal, frmPrincipal); // La ventana principal de la aplicación
// ... otras ventanas que se quieran crear al inicio
// Aquí también se puede hacer otros procesos iniciales de la aplicación
 
// Cierra y destruye la ventana de presentación
  frmSplash.Close;
  frmSplash.Free; 
// Aunque Free y Destroy se encuentran al mismo nivel como constructor y destructor de un objeto
// Este último no debe usarse directamente, en su lugar se usa Free.
 
// Continúa con la ejecución normal de la aplicación
  Application.Initialize;
  Application.Run; 
// Run inicia la captura de eventos en un ciclo permanente hasta que se cierre la aplicación
 
// La ventana (TForm) correspondiente a la presentación, en este caso frmSplash, puede mostrar
// una imagen en el fondo previamente creada en una aplicación gráfica, o información sobre la aplicación
// fabricante, contacto, etc.
// Además es conveniente utilizar el control de ubicación con la propiedad Position con el valor poDesktopCenter
// La propiedad BorderStyle también conviene modificarse: con bsNone

Hay algunos comentarios que son para novatos (que nadie se ofenda), pero la idea es que sirva a todos.
Espero que les sirva

[FerCastro]

Hay algunos comentarios que son para novatos (que nadie se ofenda), pero la idea es que sirva a todos.
Espero que les sirva

CRAM

Muchas gracias!! yo lo manejo parecido, pero algunas cosas que pones aqui son para tomarse. Y lo de los comentarios, la verdad muchas gracias, para los que no queremos batallar 

[santiago14]

Bueno, esto es lo que yo hago... es muy parecido a lo que está arriba.
En este caso se llama TPresentacion.

delphi

{$R *.res}
var
  respuesta:integer; //para recuperar el valor de la clave
  pass:TPasswordDlg;
  dUsu:dUsuario;
  Presentacion:TPresentacion;
  estadoSeparadores:string;
  grupos:TStringList;
begin
  randomize;
  try
  //separador decimal y de miles
    separadorDecimal('.', LOCALE_SDECIMAL);
    separadorMiles(',', LOCALE_STHOUSAND);
  //SEPARADORES EN MONEDA
    separadorDecimal('.', LOCALE_SMONDECIMALSEP);
    separadorMiles(',', LOCALE_SMONTHOUSANDSEP);
    estadoSeparadores:=' [permanentes]';
  except
  {A veces puede haber problemas con las variables de asignación de
   los simbolos decimal y de miles}
    decimalSeparator:='.';
    ThousandSeparator:=',';
    estadoSeparadores:=' [temporales]';
  end; //del try
//le pongo un título a la aplicación
  Application.Title := 'Troka comunicadores';
  Application.HintHidePause := 2500000;
//Cargo el DataModule
  Application.Initialize;
  Application.CreateForm(TDataModule1, DataModule1);
  archivoINI:='troka.ini';
//La presentación
  Presentacion:=TPresentacion.Create(nil);
  Presentacion.aINI:=ArchivoINI;
  presentacion.Show;
  presentacion.Update;
 
  sleep(1000 + random(2500)); //para que la presentacion esté visible un poco mas
  Presentacion.Free;
 
//.......

[santiago14]

Apareció el bloque Delphi, eso está muy bueno. Pero la letra está medio chiquita ¿no? Podría ser un puntito mas grande...

Gracias.

[enecumene]

Apareció el bloque Delphi, eso está muy bueno. Pero la letra está medio chiquita ¿no? Podría ser un puntito mas grande...

Gracias.

Arreglado, había un pequeño bug en el CSS de la etiqueta.

Saludos.

[santiago14]

Arreglado, había un pequeño bug en el CSS de la etiqueta.

Saludos.

A ver...

delphi

program Delphi