我不希望用户可以通过按右上角的“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;
请检查我的代码,并提出一些建议。?