affectation de onclick sur TImage créé dynamiquement

Version imprimable

Bonjour,

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

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:

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.

12/09/2009, 15h02
Cl@udius

Salut

Citation:

Envoyé par Darkyl

il me dit toujours une erreur

Quelle est cette erreur ?

@+

Code:

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

12/09/2009, 16h05
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:

procedure ClickImage(Sender: TObject);

@+ Claudius
12/09/2009, 16h15
Darkyl
j'avais mis :
Code:

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...:?
12/09/2009, 16h20
Cl@udius
Citation:

Envoyé par Darkyl

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:

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;
@+
12/09/2009, 16h23
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..
12/09/2009, 16h26
Cl@udius

Montre-nous le code de la procédure OnClick telle qu'elle est actuellement.
12/09/2009, 16h27
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
12/09/2009, 16h29
Cl@udius

Code:

Image.OnClick := Cliquer;

Tout simplement.

Il me dit
Code:

1 2 [Erreur] jeu.pas(149): Types incompatibles : 'pointeur de méthode et procédure normale'
Ca fait 3 h que j'essaie...lol

12/09/2009, 16h33
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.

Code:

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:

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;

12/09/2009, 16h37
Darkyl

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

Côté Interface:

Code:

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:

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;

il me dit
Code:

1 2 [Erreur] jeu.pas(16): Déclaration forward ou external non satisfaite : 'TForm1.Cliquer'
juste aprés la déclaration dans l'interface

12/09/2009, 17h03
Darkyl

ok ca marche, merci beaucoup Cl@udius pour avoir pris le temps. Ca m'aide énormément.
12/09/2009, 18h53
Darkyl

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