Ver Mensaje Individual
  #4  
Antiguo 17-10-2007
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 19
Chris Va por buen camino
desde hace tiempo utilizo un truco parecido con TPNGImage, pero lo que hago de un forma un poco más simple y rápida.

Código Delphi [-]
Procedure Form1onCreate(Sender : TObject);
var
SplashImage : TPNGImage;
Begin
SplashImage := TPNGImage.create;
SplashImage.LoadFromFile('C:\splash.png'); //opcionalmente de los recursos de la aplicación

Self.Brush.style := bsClear; // da el mismo efecto que pintar el escritorio.
Self.Canvas.Draw(SplashImage);
end;

esa es la idea, no sé si el código está bien escrito porque lo hago de memoria, pero por ahí va.
Responder Con Cita