需要消失面板上的关闭按钮对接

Question

我不希望用户可以通过按右上角的“X”按钮关闭面板。但是......当面板停靠时，面板的一角会出现一点'x' ，有没有办法隐藏这个小按钮？

我在创建停靠面板上尝试了代码，但它无法正常工作

procedure Tframe1.panBorderEndDock(Sender, Target: TObject; X,  Y: Integer);
 var
   hMenuHandle : Integer;
   begin
     inherited;
     hMenuHandle := GetSystemMenu(panBorder.Handle, False);
     if (hMenuHandle <> 0) then
     DeleteMenu(hMenuHandle , SC_CLOSE, MF_BYCOMMAND);
   end;

请检查我的代码，并提出一些建议。？