Delphi - ET, Prueba esto

   
Vista:

ET, Prueba esto

Publicado por principiante (72 intervenciones) el 25/12/2008 14:50:47
Hola ET.

begin
Screen.Cursor := crHourGlass;
Splash := TSplash.Create(nil); // El formulario se llama Splash...
Splash.Show;
Splash.Update // Con update me garantiza que se muestra el formulario.
end.

Para que garanticemos que el Timer funcione y se cierre, deberás agregar lo siguiente al timer...

procedure TSplash.Timer1Timer(Sender: TObject);
begin
SplashFm.Splash.Free;
SplashFm.Splash := nil; // Con Nil aseguramos que quede bien eliminado...
Screen.Cursor := crDefault;
Timer1.Enabled := false;
end;

Claro que deberás referenciar el formulario principal del programa de esta forma...

implementation
uses Principa; // Asumiendo que se llame principa la unidad principal

Al final del procedimiento OnShow del formulario principal deberás meter el siguiente código, que es el que activa el formulario Splash Screen para su destrucción...

With Splashfm.Splash do
Timer1.Enabled := true;

NOTA: si tienes otra manera mas sencilla de hacerlo enviame el ejemplo por favor

gracias de ante FELIZ NAVIDAD ET
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ET, Prueba esto

Publicado por E.T. (1107 intervenciones) el 26/12/2008 17:19:40
Que tal, pues encontré algo parecido a lo que usas, pero sin timer, checa

http://www.q3.nu/trucomania/truco.cgi?32&esp

http://delphi.about.com/od/formsdialogs/a/splashscreen.htm
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar