composant avec TColorDialog

Bonjour à tous,
Je cherche à faire un composant incluant un TColorDialog dans les propriétés.
Un TColor dans les propriétés, je sais faire...mais je voudrais aller plus loin que les couleurs prédéfinies.
J'aimerais avoir une propriétés "Couleur1" avec le bouton "3 points" qui m'ouvre TColorDialog.
Pour l'instant je tourne en rond......
Merci pour les bonnes idées.
A+

Tiens! J'ai appris un truc, là...
J'avais jamais remarqué.   

J'vais me mettre à double-cliquer dans tous les coins, maintenant !

Tout a fais.....j'ai été chercher des tas de solutions tordues alors que j'avais la plus simple sous les yeux..
Merci, un petit coup de pouce peut faire gagner beaucoup de temps....
A+

Il n'empêche. Le 'bouton à 3 points' ne serait pas un luxe et c'est pas bête, je trouve...

A titre d'exemple voiçi quelques lignes qui mettent les "3 points" pour un "A propos" tiré d'un compo Slider:
type
  //Property AboutBox
  TAboutSlideBarProperty = class(TPropertyEditor)
  public
    procedure Edit; override;
    function GetAttributes: TPropertyAttributes; override;
    function GetValue: string; override;
  end;

implementation
........................
//About property
procedure TAboutSlideBarProperty.Edit;
var
  msg: string;
const
  carriage_return = chr(13);
begin
  msg := 'SlideBar Component v1.1';
  AppendStr(msg, carriage_return);
  AppendStr(msg, carriage_return);
  AppendStr(msg, 'Copyright © 1996 InforTech, Inc.  All Rights Reserved.');
  AppendStr(msg, carriage_return);
  AppendStr(msg, carriage_return);
  AppendStr(msg, 'Developed by:');
  AppendStr(msg, carriage_return);
  AppendStr(msg, carriage_return);
  AppendStr(msg, 'Steven Martins');
  AppendStr(msg, carriage_return);
  AppendStr(msg, 'E-Mail: steven.martins@workmail.com');
  AppendStr(msg, carriage_return);
  AppendStr(msg, 'Home Page:');
  AppendStr(msg, carriage_return);
  AppendStr(msg, 'http://www.geocities.com/SiliconValley/Park/7619/');
  AppendStr(msg, carriage_return);
  ShowMessage(msg);
end;

function TAboutSlideBarProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paMultiSelect, paDialog, paReadOnly];
end;

function TAboutSlideBarProperty.GetValue: string;
begin
  Result := 'Click on...for About box';
end;
Avec ça je n'ai pas encore pu faire démarrer un TColorDialog......
Les "3 points" sont fournis par GetAttributes paDialog...
Si celà peut aider.....A+

content de vous avoir appris un truc
"Il n'empêche. Le 'bouton à 3 points' ne serait pas un luxe et c'est pas bête, je trouve..."
oui on pourrait mais on perdrait le dropdown de la combobox

sinon pour un exemple complet regarde ce code de F0xi 
@+
Cirec

---