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

时间:2013-06-11 13:27:10

标签: delphi delphi-7 panel

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

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

0 个答案:

没有答案