Indetectables

Hola ^^, aqui yo de vuelta :B, esta vez tengo una duda, es posible crear una pantalla de presentacion del programa?
qe se abra unos segundos, y luego se cierra, y se habra el Form principal?

Por ejemplo:
La pantalla de presentacion del Dev C++

Esto se debe hacer con un timer? :P, son pequeñas dudas qe siemrpe me surgen xD

Gracias!

Salu2

Si se puede :), con un TTimer, en el primer Formulario(Pantalla de bienvenida) tienes que poner el nombre de la Unit del Formulario dos(Pantalla del programa) junto con todas las demas Unit's en "Uses"
por ejemplo seria mas o menos asi:

Uses
SysUtils, Classes, OtraUnit, Etc, Unit2; //Unit 2 nombre de la Unit del Formulario dos.

y luego para llamarlo desde el timer:

Form2.Show;
Form1.Hide;
Timer1.Enabled := False;

D@rB-15 bueno no esta mal pensando , yo convertiria la presentacion del formulario en una funcion seria una funcion modal algo asi :

Código: Seleccionar todo

function ShowDevCForm: integer;
var
FDevCForm: TForm;
try
FDevCForm := TForm.Create(nil);
FDevCForm.ShowModal;
finally
FDevCForm.Freen;
end;
end;

luego tendrias que programa FDevCForm para que no contenga ningun boton que lo cierre y que lo cierre un timer

Código: Seleccionar todo

procedure FDevcForm.ontimer(Sender: TObject);
begin
if getticcount -> ??? then Close
end;
end;

algo asi seria la idea exitos

Cierto como te acaban decir aqui los compañeros ps1c0s1s y D@rB-15 esas serían dos posibles modos de realizarlo.Ahora tu eliges, lo mejor en estos casos esque te adaptes al modelo u opción que mas se acerque a tu nivel de programación y que una vez que tengas la idea lo hagas por ti MISMO, asi aprenderás un monton !

Aún asi, si ya controlas un poco creo que seria mas eficiente la manera de ps1c0s1s.

ABel

Eso se llama SplashForm, aquí te dejo un código sencillo para que lo hagas.

1º - Crea el formulario y ponle la propiedad "BorderStyle" en "bsNone".
2º - En el código del proyecto pones esto:

Código: Seleccionar todo

program MySplash;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {SplashForm},
  SysUtils;

{$R *.res}

begin
//SplashForm es elnombre de tu formulario...
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  Application.Initialize;
  SplashForm.Update;
  Application.Title := 'MySplash';
  Application.CreateForm(TForm1, Form1);
  Sleep(2000);
  SplashForm.Hide;
  SplashForm.Free;
  Application.Run;
end.

Prueba y listo, ;)

Saludos,

Indetectables

[Delphi]Duda,[SOLUCIONADO]

[Delphi]Duda,[SOLUCIONADO]

Re: [Delphi]Duda,

Re: [Delphi]Duda,

Re: [Delphi]Duda,

Re: [Delphi]Duda,