Discussion :

[Darkyl]

Bonjour,

Je crée des composants TImage dynamiquement par cette methode:

Code :

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

1
2
3
4
5
6
7
 
    MonImage := TImage.Create(form1);
    MonImage.Parent := form1;
 
    MonImage.Left := StrToInt(tableaubdd[3]);
    MonImage.Top := StrToInt(tableaubdd[2]);
    MonImage.width := StrToInt(tableaubdd[4]);

Le tout dans une boucle. Mais si je veux leur affecté un évènement onclick cela ne marche pas

Code :

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

1
2
 
  MonImage.Onclick := clickimage;

J'ai essayé toutes les méthodes du site et aucune ne marche (il me dit toujours une erreur) sur mon programme.
Voila.

[Cl@udius]

Salut

il me dit toujours une erreur

Quelle est cette erreur ?

@+

[Darkyl]

Code :

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

1
2
 
[Erreur] jeu.pas(133): Types incompatibles : 'TNotifyEvent' et 'procedure, untyped pointer or untyped parameter'

[Cl@udius]

Alors c'est surement parce que ta procédure ClickImage n'est pas de type TNotifyEvent.
Son prototype doit se présenter ainsi:

Code :

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

procedure ClickImage(Sender: TObject);

@+ Claudius

[Darkyl]

j'avais mis :

Code :

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

1
2
 
procedure cliquer(image:TImage);

J'ai remplacé par ta methode et même erreur.

En plus je me servais de image.name (par ex) dans cliquer et par ta methode, Sender.name ne marche pas.

Je ne comprends pas...

[Cl@udius]

Sender.name ne marche pas.

Sender représente l'objet sur lequel tu viens de cliquer. Il suffit faire un cast sur ce Sender vers le type TImage.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Cliquer(Sender: TObject);
begin
  with TImage(Sender) do
  begin
    // ... par exemple
   ShowMessage(Name);
  end;
end;

@+

[Darkyl]

J'ai pas tro bien compris, aprés begin je peux mettre directement name := ... ?

Même le problème c'est que même sans me servir de l'appelant, sans rien mettre entre le begin et end de cliquer, il me dit la même erreur que plus haut avec ta methode..

[Cl@udius]

Montre-nous le code de la procédure OnClick telle qu'elle est actuellement.

[Darkyl]

OK pour le TImage(Sender).name, ca marche.

Mais Image.onclick:=cliquer(Sender: TObject); il me dit toujours la même erreur.

C'est pas tellement la procedure cliquer qui pose probleme, c'est son appel lors de la création du composant image

[Cl@udius]

Code :

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

Image.OnClick := Cliquer;

Tout simplement.

[Darkyl]

Il me dit

Code :

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

1
2
 
[Erreur] jeu.pas(149): Types incompatibles : 'pointeur de méthode et procédure normale'

Ca fait 3 h que j'essaie...lol

[Cl@udius]

Fais voir ton code.
La partie Interface avec la procédure OnClick, ainsi que la partie implémentation de la procédure Cliquer et de la procédure où tu créés dynamiquement les TImage.

[Darkyl]

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
 
procedure cliquer(Sender: TObject);//procedure cliquer(image:TImage);
var a:integer;
    G,h:textfile;
    action:string;
begin
  AssignFile(G,'C:\Users\Darkyl\Desktop\jeu\joueur\Darkyl\map.txt');
  reset(G);
  read(G,action);
 
  if tabmenu='' then
  else
 
    //trouve la ligne de map.txt correspondante
 
    a:=0;
    while nomimagecase[a]<>TImage(Sender).name do
       begin
       a:=a+1;
       end;
 
    if tabmenu='construire' then
      begin
      AssignFile(G,'C:\Users\Darkyl\Desktop\jeu\joueur\Darkyl\BDD\production.txt');
      reset(G);
      readln(G);
 
 
 
      // remplace la ligne de lecture de map.txt avec
 
 
      //nomimagecase[a]:=Label.caption
      //image.Picture.LoadFromFile('C:\Users\Darkyl\Desktop\jeu\images\maison.png')
end;
end;

et l'appel:

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
 
procedure affichermap;
      var F:textfile;
          tableaubdd:TStringList;
          lig:string;
          a,x,y,n:integer;
          b: integer;
          MonImage:TImage;
          MonBoutton:TButton;
          simul,es1,es2,es3:string;
 
begin
AssignFile(F,'C:\Users\Darkyl\Desktop\jeu\joueur\Darkyl\map.txt');
reset(F);
n:=0;
 
 for a := 1 to 20 do
  begin
  x := a*20;
 
  for b := 1 to 20 do
    begin
    y := b*20;
 
    readln(F,lig);
    tableaubdd:=listseparateur(lig,'/');
 
    MonImage := TImage.Create(form1);
    MonImage.Parent := form1;
    form1.Memo2.lines.add(tableaubdd[2]+ '/ '+tableaubdd[3]);
    MonImage.Left := StrToInt(tableaubdd[3]);
    MonImage.Top := StrToInt(tableaubdd[2]);
    MonImage.width := StrToInt(tableaubdd[4]);
    MonImage.Picture.LoadFromFile('C:\Users\Darkyl\Desktop\jeu\images\1.png');
    MonImage.OnClick:=cliquer;
 
    xtab[n]:=StrToInt(tableaubdd[2]);
    ytab[n]:=StrToInt(tableaubdd[3]);
    nomcase[n]:=tableaubdd[0];
    nomimagecase[n]:=tableaubdd[1];
 
 
    n:=n+1;
    end;
end;
 
end;

[Darkyl]

Pas d'autyre référence à cliquer ou a affichermap, ni dans les déclaration (privé,public) ni ailleur, il faudrait peut-être?

[Cl@udius]

Côté Interface:

Code :

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

1
2
3
4
5
6
7
8
9
10
  TForm1 = class(TForm)
    // ...
    procedure Cliquer(Sender: TObject);
  private
    { Déclarations privées }
    // ...
  public
    { Déclarations publiques }
    // ...
  end;

côté implémentation:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Cliquer(Sender: TObject);
begin
  // Ton code...
end;
 
procedure AfficherMap
begin
      // ...
      MonImage.OnClick := Form1.Cliquer;
      // ...
end;

[Darkyl]

il me dit

Code :

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

1
2
 
[Erreur] jeu.pas(16): Déclaration forward ou external non satisfaite : 'TForm1.Cliquer'

juste aprés la déclaration dans l'interface

[Darkyl]

ok ca marche, merci beaucoup Cl@udius pour avoir pris le temps. Ca m'aide énormément.

[Darkyl]

Pour ceux que ca interesse, Il fallait que je mettre TForm1. devant cliquer dans l'implémentation.