arriere planRésolu

Question

Bonjour comment on fait pour mettre un arriere plan dans une fiche voila j'ai ce code mais &#231;a ne marche pas :


var
Bitmap: TBitmap;

procedure TForm2.FormPaint(Sender: TObject);
begin
Canvas.Draw(0, 0, Bitmap);
end;

procedure TForm2.FormCreate(Sender: TObject);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('fond.bmp');
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
Bitmap.Free;
end;
ce code ne marche pas et j'ai essayer de faire avec un ImageList1 comme &#231;a mais &#231;a ne marche pas non plus :


var
Bitmap: TBitmap;

procedure TForm2.FormPaint(Sender: TObject);
begin
Canvas.Draw(0, 0, Bitmap);
end;

procedure TForm2.FormCreate(Sender: TObject);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(ImageList1(0);
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
Bitmap.Free;
end;

Cirec · Accepted Answer

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&#234;me r&#233;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

Cirec · Answer

Salut,
le premier code devrait fonctionner normalement.
Quand tu compiles ta source il y a des point qui apparaissent dans la marge de l'&#233;diteur 
ce qui t'indique que le code est pris en compte par le compilateur regarde qu'ils soient bien pr&#233;sent
pour les lignes suivantes :

Bitmap.LoadFromFile('fond.bmp'); 
Canvas.Draw(0, 0, Bitmap); 

@+
Cirec

maxioutils · Answer

oui ils sont bien pr&#233;sent mais &#231;a ne marche toujours pas sinon comment doit-on
 faire avec un imagelist ou il n'y a pas un autre code ?

maxioutils · Answer

as-tu essayer ton code ? car moi j'ai essayer plusieur foi &#231;a ne marche toujours pas

Cirec · Answer

tu vas finir par me mettre en col&#232;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&#176;) Nouveau Projet

2&#176;) Enregistrer le Project sous 

3&#176;) tu places l'image dans le r&#233;pertoire ou tu as enregistrer le project

4&#176;) Dans l'inspecteur d'objets onglet &#233;venement tu double cliques sur OnCreate, OnClose et OnPaint

5&#176;) et la tu &#233;cris le code que je t'ai donner dans les procedure correspondantes

6&#176;) Tu sauvegardes

7&#176;) Tu fais F9

8&#176;) Tu fais oh &#231;a fonctionne

9&#176;) Si l'&#233;tape 8 ne fonctionne pas c'est que tu as fait une erreur alorstu recommence

@+
Cirec

maxioutils · Answer

cool oh &#231;a fonctionne merci, mais je ne sais toujourps d'ou sortait mon erruer et j'avais tout v&#233;rifier

Cirec · Answer

en fonction de le configuration de Delphi si tu n'as pas enregistrer le projet avant de faire F9 ce genre de code ne fonctionne pas

maxioutils · Answer

ah ok c'est pour &#231;a !

Cirec · Answer

Bon maintenant tu peux cliquer sur R&#233;ponce Accept&#233;e puisque &#231;a fonctionne 

@+
Cirec

Arriere plan

9 réponses

Votre réponse

Discussions similaires