Colorer une cellule sélectionnée dans un DBCtrlGrid contenant des TDBMemo

Bonjour,

Sous Delphi 7, j’utilise deux DBCtrlGrid liés entre eux :

• DBCtrlGrid2 affiche les catégories (chaque cellule contient un TDBMemo)
• DBCtrlGrid1 affiche les produits en fonction de la catégorie sélectionnée.

Je souhaite que lorsqu’on clique sur une cellule (un TDBMemo) dans DBCtrlGrid2, le texte (ou l’arrière-plan) de cette cellule soit mis en surbrillance, par exemple en changeant sa couleur, pour indiquer visuellement qu’elle est sélectionnée.

Existe-t-il un moyen simple de faire cela ? Peut-on changer dynamiquement la couleur du TDBMemo sélectionné dans le DBCtrlGrid ?

Merci d’avance pour votre aide.

Citation:

---

Envoyé par LandGreen

Peut-on changer dynamiquement la couleur du TDBMemo sélectionné dans le DBCtrlGrid ?

---

Je dirais que non. La solution consiste à personnaliser le dessin du panel qui contient le contrôle, en utilisant par exemple l'événement OnPaintPanel du DBCtrlGrid.

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

procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer); var R: TRect; begin // Récupère la zone du panel R := DBCtrlGrid.ClientRect;   // Si le panel en cours est celui sélectionné if Index = DBCtrlGrid.PanelIndex then begin // Si vous utilisez un style de bordure relevé, ajustez la zone if DBCtrlGrid.PanelBorder = gbRaised then InflateRect(R, -2, -2); // Assignez la couleur désirée pour la sélection DBCtrlGrid.Canvas.Brush.Color := clYellow; // Par exemple, jaune pour la sélection DBCtrlGrid.Canvas.FillRect(R); end else begin // Pour les autres panels, vous pouvez redessiner avec la couleur par défaut DBCtrlGrid.Canvas.Brush.Color := clWindow; DBCtrlGrid.Canvas.FillRect(R); end; end;

---

Pièce jointe 667619

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

procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer); var R: TRect; begin // Récupère la zone du panel R := DBCtrlGrid.ClientRect;   // Si le panel en cours est celui sélectionné if Index = DBCtrlGrid.PanelIndex then begin // Si vous utilisez un style de bordure relevé, ajustez la zone if DBCtrlGrid.PanelBorder = gbRaised then InflateRect(R, -2, -2); // Assignez la couleur désirée pour la sélection DBCtrlGrid.Canvas.Brush.Color := clYellow; // Par exemple, jaune pour la sélection DBCtrlGrid.Canvas.FillRect(R); end else begin // Pour les autres panels, vous pouvez redessiner avec la couleur par défaut DBCtrlGrid.Canvas.Brush.Color := clWindow; DBCtrlGrid.Canvas.FillRect(R); end; end;

---

Merci beaucoup pour ta réponse rapide, claire et efficace. J’ai passé 2 heures à galérer sur ChatGPT / DeepSeek sans rien trouver de concret, et là en 2 minutes tu m’as débloqué. Chapeau !

:resolu: