TCMDockNotification = packed record
  Msg: Cardinal;
  Client: TControl;
  NotifyRec: PDockNotifyRec;
  Result: Integer;
end;

struct TCMDockNotification {
  unsigned Msg;
  TControl * Client;
  PDockNotifyRec NotifyRec;
  int Result;
};