arriere plan

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

tu vas finir par me mettre en colère  
bien sur que oui en plus c'est le B.A BA de la programation Delphi
il y a quelque chose que tu fait mal

Tu fais :

1°) Nouveau Projet

2°) Enregistrer le Project sous 

3°) tu places l'image dans le répertoire ou tu as enregistrer le project

4°) Dans l'inspecteur d'objets onglet évenement tu double cliques sur OnCreate, OnClose et OnPaint

5°) et la tu écris le code que je t'ai donner dans les procedure correspondantes

6°) Tu sauvegardes

7°) Tu fais F9

8°) Tu fais oh ça fonctionne

9°) Si l'étape 8 ne fonctionne pas c'est que tu as fait une erreur alorstu recommence

@+
Cirec