为什么收不到CM_ButtonPressed消息(100分)

做了一个TColorButton控件，继承自TGraphicControl控件，
和TSpeedButton按钮一样，它有如下属性:
Down, GroupIndex, AllowUp;
但我无法实现按钮组的功能，即同一组的TColorButton中只能
有一个在按下状态。因为控件无收到CM_ButtonPressed消息

TColorButton = class(TGraphicControl)
private
FDown: boolean;
FGroupIndex: integer;
FAllowUp: boolean;
....
....
protected
....
....
procedure CMButtonPressed(var message: TMessage);message CM_ButtonPressed;
public
....
....
publishced
....
....
...
end;


procedure TColorButton.CMButtonPressed(var message: TMessage);
var
Sender: TColorButton
begin
if Message.WParam = FGroupIndex then
begin
Sender := TColorButton(Message.LParam);
if Sender <> Self then
begin
if Sender.Down and FDown then
begin
FDown := False;
if (Action is TCustomAction) then
TCustomAction(Action).Checked := False;
Invalidate;
end;
end;
end;
end;


请大侠指点迷津。

你的这个消息在哪里找到的?
试试这个行不行?
WM_NCLBUTTONDBLCLK

你可以看看TSpeedButton的源代码。

完整代码能贴出来吗？
好调试

自己搞定了。