类似的问题，调试通过就结贴

Question

我不想要系统菜单中的“最小化”，“移动”，“关闭”，“最大化”，“大小”的菜单项，该怎么做

Answer 1

好做!
  setwindowlong(FForm.handle,gwl_style,getwindowlong(FForm.handle,gwl_style) and not ws_minimizebox and not ws_maximizebox and not ws_sysmenu);
在这之后,在原来的地方再画上新的按扭打,就可以了

Answer 2

self.BorderIcons := [];
self.BorderStyle := bsNone;

Answer 3

const SC_MyMenuItem = WM_USER + 1;
procedure TForm1.FormCreate(Sender: TObject);var
   myMenu:hMenu;
begin
   myMenu:=getSystemMenu(form1.handle,false);//改application.handle是更新任务栏对应的系统菜单   AppendMenu(myMenu,MF_STRING,SC_MyMenuItem,'my menu');//完全是自己的菜单，时要用DeleteMenu删除所有菜单再AppendMenu;
   AppendMenu(myMenu,MF_STRING,SC_MyMenuItem+1,'哈哈');
   DeleteMenu(mymenu, 0, MF_BYPOSITION);
   DeleteMenu(mymenu, 0, MF_BYPOSITION);//一个个的删吧！！给分：）