Bonjour,

Je souhaite créer dynamiquement des TImages lorsque je clique sur un bouton. Cela fonctionne, mais à mon grand regret je n'arrive pas à associer d'évènement OnClick. J'ai regardé le tutoriel mais rien n'y fait je ne comprends pas, voici mon 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
public
    procedure My_Click(Sender: TObject);
end;
 
procedure TForm1.My_Click(Sender: TObject);
begin
    showmessage('TEST')
end;
 
procedure TForm1.Bouton1Click(Sender: TObject);
var
begin
    with TImage.Create(self) do begin
    parent := panelSalle ;
    OnClick := My_Click ;
end;
Cela compile et s'exécute normalement mais l'évènement n'est pas déclenché. Est-ce que vous auriez une idée ?

d'avance !