Bonjour et joyeux noël à toi aussi,

tu poses un TColorDialog sur ta fiche et tu exécutes ce code :


Var
Couleur : TColor ;
Begin
If Colordialog1.execute Then Couleur :=...