Timage en formulario principal

[Loviedo]

Tengo un Timage como fondo del formulario principal, pero se produce un efecto 'feo' cuando se inicia la aplicación, Se muestra el formulario y a continuación se inserta la imagen. ¿Como puedo hacer para que se muestre el formulario con la imagen como fondo sin que se produzca ese retardo en la imagen?.
Utilizo Windows XP y JPeg.
Gracias anticipadas.

[[Lepe]]

¿Cuando insertas la imagen? ¿en qué evento del Form?

Lo propio sería en el OnCreate de la Forma, incluso hacer el cambio de tamaño (un resize) antes de mostrar el form. Al llamar a Form1.Show ya todo está preparado sin "efectos raros"

Saludos

[Loviedo]

Lo he probado en todos los eventos y nada. Primero se crea el form y luego se inserta la imagen. No es que sea un problema, pero es más elegante que aparezca el formulario con su imagen de fondo.
[Saludos]
Gracias.
[/Saludos]

[[basti]]

Prueba lo siguiente, no sé si es la mejor forma de hacerlo, pero acabo de probarlo y funciona:

OnCreate del form:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  TransparentColor := True;
  TransparentColorValue := clBlack;
  Color := clBlack;
  BorderStyle := bsNone;
end;

OnProgress del TImage:

Código Delphi [-]
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
  const Msg: String);
begin
  if PercentDone = 100 then
  begin
    TransparentColor := False;
    Color := clBtnFace;
    BorderStyle := bsSizeable;
  end;
end;

Lo que hace es hacer el form transparente en el create, y restablecerlo cuando la imagen está totalmente cargada.

[Loviedo]

Gracias. La idea es lo que he buscado, hacer invisible el form y cuando la imagen esté cargada hacerlo visible, pero a mi no me funciona.

Con este procedimiento el fondo se elimina, pero sólo el fondo.

Código Delphi [-]
procedure Tform1.WMEraseBkgnd(var Msg:TMessage);
begin
   Msg.Result:=1;
end;

Saludos.

[mRoman]

El efecto se quita si el TToolBar en su propiedad Align, se la cambio a "alCustom".... esto puediera resolver el problema.....pero yo creo que no es la mejor opcion de resolverlo.