如何禁止鼠标点击窗体的左上角,不弹出移动,关闭,最小化那个菜单啊!
如何禁止鼠标点击窗体的左上角,不弹出移动,关闭,最小化那个菜单啊!
[解决办法]
BorderIcons 只选[biSystemMenu]
procedure TfrmMain.FormCreate(Sender: TObject);
var
hmMenu:HMENU;
ms:string;
begin
hmMenu:=GetSystemMenu(Handle,False);
SetLength(ms,11);
GetMenuString(hmMenu,1,PChar(ms),10,MF_BYPOSITION);
ms:=Trim(ms);
ModifyMenu(hmMenu,1,MF_BYPOSITION or MF_GRAYED,0,PChar(ms));
......
end;