Réponse acceptée !
Salut,
Voici un code qui fonctionne :
var
Form1: TForm1;
Bmp : TBitMap;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Bmp := TBitMap.Create;
Bmp.LoadFromFile('Cloud.bmp'); // le Bmp doit se trouver dans le même répertoire que le project
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Bmp.Free;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Draw(0, 0, Bmp);
end;
end.
@+
Cirec