Imagen png con formulario transparente?

[[ArdiIIa]]

Empezado por marcosl

Ardilla, eso es lo q es estoy haciendo pero no soluciona el refresco del fondo del splash al cambiar el fondo del escritorio.
talves.. un timer... o capturar el mesaje de windows cuando se mueven las ventanas...

Ya me di cuenta después y realicé otras pruebas....

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls;

type


  TForm1 = class(TForm)
    Image1: TImage;
    ProgressBar1: TProgressBar;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure InicioProcesos;
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle OR WS_EX_TRANSPARENT;
  Brush.Style := bsClear;
  BorderStyle := bsNone;
  Refresh;
end;


procedure TForm1.InicioProcesos;
Var I : integer;
begin
For I := 0 To 100 DO
  Begin
    Sleep(50);
    ProgressBar1.Position := I;
  End;
Close;

end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  InicioProcesos;
end;

end.

OJO: Código original