Discussion :

[info.pascal]

Salem bonjour,

je vous prie de me donner les étapes pour mettre une image en arrière plan en Delphi7.

je vous remercie.

(f)

[Rayek]

http://delphi.developpez.com/faq/?pa...ion#imagefiche

[info.pascal]

lol

d'accord merci.

[info.pascal]

pardon,
j'ai utilisée l'éditeur d'image et j'ai pu crée une image "Bitmap1.bmp"

et j'ai cliquer deux fois dans la fiche et je suis trouvé dans le code de ma fiche et j'ai coller ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
Bitmap: TBitmap;

procedure TMyForm.FormPaint(Sender: TObject);
begin
  Canvas.Draw(0, 0, Bitmap);
end;

procedure TMyForm.FormCreate(Sender: TObject);
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('MyBitmap.bmp'); /*j'ai remplacé ('MyBitmap.bmp') par ('Bitmap1.bmp') le nom de l'image
end;

procedure TMyForm.FormDestroy(Sender: TObject);
begin
  Bitmap.Free;
end;

et ça n'a pas marcher

les erreurs détecté sont:
[Erreur] Unit1.pas(27): Instruction attendu(e) mais 'VAR' trouvé(e)
[Erreur] Unit1.pas(30): ';' attendu(e) mais '.' trouvé(e)
[Erreur] Unit1.pas(32): Identificateur non déclaré : 'Canvas'
[Erreur] Unit1.pas(35): Identificateur redéclaré : 'TMyForm'
[Erreur] Unit1.pas(40): Identificateur redéclaré : 'TMyForm'
[Erreur] Unit1.pas(45): '.' attendu(e) mais ';' trouvé(e)
[Erreur fatale] Project1.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'

le code de ma fiche complet est le suivent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  var
Bitmap: TBitmap;
 
procedure TMyForm.FormPaint(Sender: TObject);
begin
  Canvas.Draw(0, 0, Bitmap);
end;
 
procedure TMyForm.FormCreate(Sender: TObject);
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('Bitmap1.bmp');
end;
 
procedure TMyForm.FormDestroy(Sender: TObject);
begin
  Bitmap.Free;
end;
 
end;
 
end.

et merci d'avance.

[BuzzLeclaire]

Humm,

Y a du boulot... Ta loupé ton copier-coller apparement !!!

Regarde ton code tu à 2 fois le FormCreate !!! dont 1 qui n'ai même pas terminé.

Essaye celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  Bitmap: TBitmap;
 
implementation
 
{$R *.dfm}
 
Procedure TMyForm.FormPaint(Sender: TObject);
begin
  Canvas.Draw(0, 0, Bitmap);
end;
 
procedure TMyForm.FormCreate(Sender: TObject);
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('Bitmap1.bmp'); // t'es sur du chemin ???
end;
 
procedure TMyForm.FormDestroy(Sender: TObject);
begin
  Bitmap.Free;
end;
 
end.

[dragonno]

Et là ton commentaire ne semble pas terminé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TMyForm.FormCreate(Sender: TObject);
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('MyBitmap.bmp'); /*j'ai remplacé ('MyBitmap.bmp') par ('Bitmap1.bmp') le nom de l'image
end;

Début.....Fin
/*......... */