AlphaControls - перехват меню заголовка формы

[chandrasecar]

Здравствуйте! Использую бесплатные компоненты AlphaControls (alphaskins.com). Форма скинуется полностью. Задача состоит в том, чтобы перехватить сообщения WM_NCRBUTTONDOWN (нажатие правой кнопки мыши на заголовке окна) и WM_NCLBUTTONDOWN (тоже самое но левая кнопка), и вместо меню заголовка выводить форму. Дело в том, что эти сообщения перехватываются самим компонентом: замечали, он делает свое меню заголовка формы? Есть код, который замечательно работает без компонентов AlphaControls:

private
    { Private declarations }
    procedure CaptionRClick(var Message: TMessage); message WM_NCRBUTTONDOWN;
    procedure CaptionLClick(var Message: TMessage); message WM_NCLBUTTONDOWN;
........

procedure TForm1.CaptionRClick(var Message: TMessage);
begin
   //если кликнули правой по шапке или иконке окна
   if (Message.wParam = HTCAPTION) or (Message.wParam = HTSYSMENU) then 
  begin
    ShowMessage('Правый клик по заголовку');
  end
  else inherited;  //остальное передаём окну
end;

procedure TForm1.CaptionLClick(var Message: TMessage);
begin
 //если кликнули по иконке окна
    if (Message.wParam = HTSYSMENU) then
  begin
    ShowMessage('Клик по иконке окна');
  end
  else inherited;
end;

У меня нет открытого кода, иначе бы разобрался. Наверняка как-то можно перехватить действия компонента на это сообщение и адаптировать этот код? Или может есть какой-то другой путь?

[Kotofff]

Как вариант кидай на форму ApplicationEvents и в его событии OnMessage пропиши :

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if (Msg.message = WM_NCRBUTTONDOWN) then ShowMessage('Клик левой кнопкой по заголовку');
end;

Этот код будет показывать сообщение, но не покажет системное меню вообще ...
Дальше шагай сам ...