Problème avec TButton en injection dans une cellule d'un TStringGrid

Bonjour,

Je suis sous W11 avec Delphi 6 Personal Edition.

Je suis en train d'injecter (ou d'essayer...) des contrôles dans des cellules d'un contrôle dérivé d'un TStringGrid.

J'ai essayé TButton. Ca marche, le bouton apparaît et il est cliquable.
Mais le clic ne déclenche pas l'évènement OnClick du bouton injecté.
Par contre, appeler programmatiquement la méthode Click du TButton déclenche bien sa routine OnClick.

Pui, j'ai essayé TSpeedButton à la place.
Là encore, le bouton apparaît bien et est cliquable.
Mais cette fois, le clic déclenche bien l'évènement OnClick du bouton injecté.

Conclusion: si je veux un bouton dans un TStringGrid, il faut utiliser TSpeedButton.

Mais pourquoi ? Qu'est-ce qui fait que TSpeedButton fonctionne et pas TButton, en injection dans une cellule d'un TStringGrid ?

Je joins une capture d'écran après le clic sur un des 6 TSpeedButton injectés - la routine évènement OnClick affiche les coordonnées de la cellule cliquée:
Pièce jointe 671889

D'ailleurs, après un clic sur le bouton dans la cellule ligne 3 colonne 2, un peut cliquer sur "Info" et on obtient des informations sur la cellule clickée:
Pièce jointe 671890

Ajoute Button1.ControlStyle := Button1.ControlStyle +[csClickEvents] pour que le clic soit traité à réception de WM_LBUTTONUP plutôt qu'un CN_COMMAND qui n'arrive pas dans ce cas-là (j'ignore pourquoi).

L'évenment MouseDown est généré et disponible par contre celui du click ne l'est pas mais un WM_COMMAND est envoyé au parent c'est à dire le TStringGrid qui l'intercepte sans appeler inherited pour le passer au ancêtre ce qui empêche la génération du CN_COMMAND.

Je ne pense pas que l'idée de placer des contrôles à l’intérieur du TStringgrid est pertinente une bonne partie des messages des contrôles enfants transitent par le parent et ça va générer des interférences.