Помещение VCL компонентов в область заголовка

[bulldog5293]

Собственна, тема и есть вопрос, в дельфи я знаю как сделать

procedure TForm1.FormResize(Sender: TObject);   
begin  
  with Form2 do  
  begin  
    {Заменим мои магические числа реальной информацией SystemMetrics}  
    Width := Form1.Width - 120;   
    Top := Form1.Top + GetSystemMetrics(SM_CYFRAME);   
    Left := ((Form1.Left + Form1.Width) - Width) - 60;   
  end;   
end;   
    
procedure TForm1.FormShow(Sender: TObject);   
begin  
  Form2.Show;   
end;   
    
procedure TForm1.FormHide(Sender: TObject);   
begin  
  Form2.Hide;   
end;   
    
procedure TForm1.WMMove(var Msg: TWMMove);   
begin  
  inherited;   
  if (Visible) then  
    FormResize(Self);   
end;

Но трабл в том что в C++ я не нашёл альтернативу WMMove, кроми как WM_Move, но как с ним работать не понял

ВОПРОС снят разобрался
void __fastcall TForm1::OnMove(TWMMove & Message)
{
}