Discussion :

[Chacks]

Bonjour,

je cherche à regrouper des évènements, par exemple j'ai 10 Tbutton dans ma fiche, lorsque je clique sur 5 d'entre eux, je déclenche une action qui sera identique pour les 5 et idem pour les 5 autres mais avec une autre action. Je ne veux pas qu'à chaque Tbutton je sois obliger de créer l'évènement OnClick qui renverrai vers une procédure défini car dans mon cas, il sera possible de créer des Tbuttons même après déploiement de l'application et ça deviendrait très vite difficile à gérer. Si quelqu'un a une idée. Merci beaucoup.

Chacks

[TicTacToe]

Habituellement, via l'IDE,
si tu double-click sur OnClick de Button1, tu obtiendras
la méthode liée à l'evt : Button1Click()

pareil pour le bouton2 etc...

mais tu n'es pas obligé de créer à chaque fois un evt différent

pour tes boutons 2,3,4 et 5, au lieu de double-cliquer sur 'OnClick', tu peux aller rechercher la méthode 'Button1Click(...)'.

(Tu peux aussi renommer tes méthodes dans l'inspecteur d'objet pour t'y retrouver).

Ensuite,

pour savoir si le click vient de Button1, ou du Button 2 ou ...

il faut que tu testes le Sender de cette manière (par exemple)

Code :

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

1
2
3
4
5
6
7
procedure Form1.Button1Click( Sender: TObject )
begin
  if Sender = Button1 then ...  else
  if Sender = Button2 then ...
  // ainsi de suite
  // TButton( Sender ) représente ton bouton clické aussi
end

APRES, il y a bien sur d'autres méthodes necessitant un peu plus de connaissance, si vraiment tu veux être très evolutif envers tout ca (ajout de boutons par exemple)

il faut chercher du coté de l'affectation dynamique de méthode sur des evts de composants, avec des listes dynamiques de composants par exemple... mais je ne sais pas si tu veux aller jusque là

Bon code !

[Chacks]

Merci TicTacToe,

c'est exactement ce que je voulais. Par contre je veux bien que tu m'expliques l'affectation dynamique de méthodes car j'aurais de nouveau Tbutton à créer par la suite (après compilation) et il faudra que je puisse affecter l'évènement souhaité.

Merci beaucoup.

Pierre

[TicTacToe]

j'aurais de nouveau Tbutton à créer par la suite (après compilation)

Cela signifie, qu'après avoir posé des boutons statiques via l'ide, tu souhaites poser des boutons de manière dynamiques au moment de l'execution ?

Dans ce cas,

Ta méthode Button1OnClick existe déjà.
Lorsque tu créés ton bouton il faut faire :

Code :

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

1
2
3
4
5
6
7
8
 
var MonBouton: TButton;
...
MonBouton := TButton.Create( Self );
MonButton.Parent := // ton composant conteneur, un panel par ex.
MonButton.Caption := 'Un autre bouton';
MonButton.(Left/top ) := ...
MonButton.OnClick := Button1Click;

Dans le cas ou TOUS tes boutons sont dynamiques, il faut procéder de même. Mais attention, du coup, Button1Click n'existe pas.

Il te faut donc créer une méthode dans ta classe TForm, avec exactement les memes params qu'un méthode pour evt. On click
En l'occurence

Code :

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

1
2
3
4
procedure TForm1.MonBoutonClick( Sender: TObject )
begin
  ... ton traitement ...
end

et ensuite lors de la création, affecter ton evt Onclick:

Code :

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

1
2
3
4
MonBouton := TButton.Create(Self);
...
MonBouton.OnClick := MonBoutonClic;
...

bon code !

[Chacks]

Merci,

graçe aux infos de ta première réponse, j'avais réussi à trouver comment affecter les procédures lors de la création.
En tout cas toutes tes explications sont super claires.

Merci beaucoup.

Chacks