1

我不希望用户可以通过按右上角的“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;

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

4

0 回答 0