我经常看到一些程序的系统菜单中有自己的菜单（就是关闭，最大化，最小化，还原之类的菜单里），他是怎么加进去的？(40分)

maysoft · 2003-12-08

我经常看到一些程序的系统菜单中有自己的菜单（就是关闭，最大化，最小化，还原之类的菜单里），他是怎么加进去的？

liwens · 2003-12-08

用一个TACTION控件，你说的那些是标准TACTION，在TACTION控件里增加这些标准TACTION； 增加一个空菜单项，把它指向TACTION控件中的标准ACTION就可以了，具体操作你摸索一下吧；

hongxing_dl · 2003-12-08

托盘消息处理： const WM_MYTRAYICONCALLBACK = WM_USER + 1000 ; private     MyTrayIcon : TNotifyIconData ;     procedure WMMyTrayIconCallBack(Var Msg : TMessage);     message WM_MYTRAYICONCALLBACK ;//托盘消息处理过程 // procedure TFrmMySrv.FormCreate(Sender: TObject); begin   Icon.Handle := LoadIcon(Hinstance,'MAINICON');   MyTrayIcon.cbSize := SizeOf(TNotifyIconData);   MyTrayIcon.Wnd := Handle ;   MyTrayIcon.uID := 1 ;   MyTrayIcon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE ;   MyTrayIcon.uCallBackMessage := WM_MYTRAYICONCALLBACK ;///////////////将自定义托盘消息传递进去   MyTrayIcon.hIcon := Icon.Handle;   StrCopy (MyTrayIcon.szTip, PChar(Caption));   Shell_NotifyIcon(NIM_ADD,@MyTrayIcon);   ShowWindow(Handle,sw_Hide);   Visible := False ;   Application.ShowMainForm := False ;   SetForegroundWindow(Application.Handle); end; ////消息过程实现 procedure TFrmMySrv.WMMyTrayIconCallBack(var Msg: TMessage); var CursorPos : TPoint; begin   case Msg.LParam of     WM_LBUTTONDBLCLK : //双击消息：弹出主窗口     begin       Visible := not Visible ;       Application.ShowMainForm := Visible ;       SetForegroundWindow(Application.Handle);     end ;     WM_RBUTTONDOWN : //鼠标右键：弹出菜单     begin       GetCursorPos(CursorPos);       Popupmenu1.Popup(CursorPos.X,CursorPos.Y);//popupmen1里面就可以加入显示主窗口、退出等功能     end ;   end ; end;

hongxing_dl · 2003-12-08

搞错了：添加系统菜单应该是这样的： const   SC_MyMenuItem=WM_USER+1; ////////////////////////// private     procedure WMSysCommand(var msg:TWMSysCommand);        message WM_SYSCOMMAND; ////////////////////////// procedure TForm1.FormCreate(Sender: TObject); begin   //在系统彩旦中添加一个分割符   AppendMenu(GetSystemMenu(Handle,False),MF_SEPARATOR,0,'');   //在系统菜单中添加自己的菜单项   AppendMenu(GetSystemMenu(Handle,False),              MF_STRING+MF_CHECKED,              SC_MyMenuItem,              '我的菜单项[&I]'); end; ////////////////// procedure TForm1.WMSysCommand(var msg: TWMSysCommand); begin   if Msg.CmdType=SC_MyMenuItem then   begin      //自定义菜单执行代码   end   else     inherited; end;

ning_ning · 2003-12-08

这不是windows自己的功能吗？

chnplzh · 2003-12-08

这个其实使用的就是以下api函数，我记得《Mastering Delphi 7》里面就有完整的例子， 楼主可以去 www.51delphi.com 下载。 The GetSystemMenu function allows the application to access the window menu (also known as the System menu or the Control menu) for copying and modifying. HMENU GetSystemMenu(     HWND hWnd, // handle of window to own window menu       BOOL bRevert // reset flag   &nbsp

;   Parameters hWnd Identifies the window that will own a copy of the window menu. bRevert Specifies the action to be taken. If this parameter is FALSE, GetSystemMenu returns the handle of the copy of the window  menu currently in use. The copy is initially identical to the window menu, but it can be modified. If this parameter is TRUE, GetSystemMenu resets the window menu back to the Windows default state. The previous window menu, if any, is destroyed.   Return Values If the bRevert parameter is FALSE, the return value is the handle of a copy of the window menu. If the bRevert parameter is TRUE, the return value is NULL. Remarks Any window that does not use the GetSystemMenu function to make its own copy of the window menu receives the standard window menu. The window menu initially contains items with various identifier values, such as SC_CLOSE, SC_MOVE, and SC_SIZE. Menu items on the window menu send WM_SYSCOMMAND messages. All predefined window menu items have identifier numbers greater than 0xF000. If an application adds commands to the window menu, it should use identifier numbers less than 0xF000. Windows automatically grays items on the standard window menu, depending on the situation. The application can perform its own checking or graying by responding to the WM_INITMENU message that is sent before any menu is displayed. See Also GetMenu, WM_INITMENU, WM_SYSCOMMAND

bjaman · 2003-12-08

To hongxing_dl:   你的系统菜单加入方法是正解。已测试通过。   托盘消息处理有问题。[Error] Undeclared identifier: 'TNotifyIconData' 它定义在哪个系统单元呀？

hongxing_dl · 2003-12-08

uses shellapi;

bjaman · 2003-12-08

To hongxing_dl:   添加一个菜单项是没问题，要是添加两个或以上菜单项呢？怎么处理消息？请指教！

bjaman · 2003-12-08

Ok,搞定！如果加多个菜单项，可以相应地声明几个常量： const  SC_MyMenuItem1 = WM_USER + 1;  SC_MyMenuItem2 = WM_USER + 2; 并在加入菜单项时：AppendMenu(GetSystemMenu(Handle,False),MF_STRING+MF_CHECKED,                    SC_MyMenuItem1,'我的菜单项1[&I]');                   AppendMenu(GetSystemMenu(Handle,False),MF_STRING+MF_CHECKED,                    SC_MyMenuItem2,'我的菜单项2[&I]'); 处理消息时：procedure TForm1.WMSysCommand(var msg: TWMSysCommand);             begin               Case Msg.CmdType of                 SC_MyMenuItem1 : begin    //自定义菜单项1执行代码 end;                 SC_MyMenuItem2 : begin    //自定义菜单项2执行代码 end;                 else inherited;             end

sxzqcyj · 2003-12-08

你的问题已由hongxing_dl解决了

我经常看到一些程序的系统菜单中有自己的菜单（就是关闭，最大化，最小化，还原之类的菜单里），他是怎么加进去的？(40分)

maysoft

Unregistered / Unconfirmed

liwens

Unregistered / Unconfirmed

hongxing_dl

Unregistered / Unconfirmed

hongxing_dl

Unregistered / Unconfirmed

ning_ning

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

hongxing_dl

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

Similar threads