怎么去掉窗体标题栏右键弹出的系统菜单。
怎么去掉窗体标题栏右键弹出的系统菜单。
窗体必须是普通窗体不能是无标题窗体。

[解决办法]
setwindowlong(hwnd,gwl_style,getwindowlong(hwnd,gwl_style)or not ws_sysmenu)
hwnd是窗口句柄
[解决办法]
窗体BorderIcons下四个属性全部设为false
[解决办法]

Delphi(Pascal) code

unit   Unit1;     interface     uses         Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,         StdCtrls;     type         TForm1   =   class(TForm)             Edit1:   TEdit;             Button1:   TButton;             procedure   FormCreate(Sender:   TObject);         private             procedure   MyProcedure(var   Msg:   TMsg;   var   Handled:   Boolean);             {   Private   declarations   }         public             {   Public   declarations   }         end;     var         Form1:   TForm1;     implementation     {$R   *.DFM}     procedure   TForm1.MyProcedure(var   Msg:   TMsg;   var   Handled:   Boolean);       begin           if   msg.message=WM_RBUTTONDOWN   then                 msg.message:=WM_NULL;       end;     procedure   TForm1.FormCreate(Sender:   TObject);     begin       application.OnMessage:=MyProcedure;     end;     end.