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;

@+