Eigenes OnClick-Event

[Andreas L.]

Hi,
bin gerade dabei ein OnClick-Event meiner Komponente zu implementieren. Dummerweise weiß ich nicht, welche Message ich brauche. Hab CM_CLICK probiert, die gibts aber anscheinend nicht. Auch nach einer halben Stunde suchen in Coontrols.pas weiß ich nicht weiter. Hier mal ein paar Zeilen Code:

Delphi-Quellcode:

...
 private
    fOnClick: TNotifyEvent;
    procedure CMClick(var Message: TMessage); message CM_CLICK; //CM_CLICK gibts net
...
...
 published
    property OnClick: TNotifyEvent read fOnClick write fOnClick;
...
...
procedure TCubeNavigationButton.CMClick(var Message: TMessage);
begin

 if not Active then
  begin

   fActive := True;
   Color := fActiveBarColor;
   fButtonShape.Pen.Color := fActiveBorderColor;
   fButtonShape.Brush.Color := fActiveButtonColor;
   fCaptionLabel.Font.Assign(fActiveButtonFont);
   fGlyphImage.Picture.Assign(fGlyphActive);

  end;

 if assigned(fOnClick) then
  begin

   fOnClick(Self);

  end;

end;

Welche Message brauch ich?

EDIT: Wenn ich BN_CLICKED verwende, meldet der Compiler: "[Pascal Fehler] CubeNavigationButton.pas(55): E2139 Ungültiger Botschaftsmethoden-Index"