При установке Panel.DragMode:=dmAutomatic;  Panel.DragKind:=dkDock; какое событие возникает при закрытии "крестиком" панели?

Как вариант проверки подобного

type
 TPanel = class(ExtCtrls.TPanel)
 protected
   procedure WndProc(var Msg: TMessage); override;
 end;

 TForm1 = class(TForm)
   pnl1: TPanel;
   pnl2: TPanel;
   mmo1: TMemo;
   ck1: TCheckBox;
 private      { Private declarations }
 public      { Public declarations }
 end;

var
 Form1: TForm1;

implementation
{$R *.dfm}

{ TPanel }

procedure TPanel.WndProc(var Msg: TMessage);
begin
 if Msg.Msg=45067 then
   Form1.mmo1.Lines.Add(self.Caption + ' Close');

//  if Form1 <> nil then
//    if Form1.ck1 <> nil then
//      if Form1.ck1.Checked then
//          Form1.mmo1.Lines.Add(Format('Msg.Msg=%d,Msg.WParam=%d,Msg.LParam=%d',[Msg.Msg,Msg.WParam,Msg.LParam]));
 inherited;
end;

Спасибо, работает. Думала, это будет попроще.