Timage en formulario principal

[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.