如何添加子菜单 ( 积分: 100 )

yangyih007 · 2005-09-13

可以使用以下方式创建弹出式菜单，但是如何在创建好的菜单的某个项目添加子菜单？用API方式 var pm1:hmenu; i:integer; pm1:=CreatePopupMenu; for i:=0 to 5 do appendmenu(pm1, MF_string, i, pchar(popupstr));

yangyih007 · 2005-09-13

可以使用以下方式创建弹出式菜单，但是如何在创建好的菜单的某个项目添加子菜单？用API方式 var pm1:hmenu; i:integer; pm1:=CreatePopupMenu; for i:=0 to 5 do appendmenu(pm1, MF_string, i, pchar(popupstr));

chenybin · 2005-09-13

参考 http://www.delphibbs.com/delphibbs/dispq.asp?lid=515833 标题： PopupMenu怎样自动消失以及如何调用系统菜单 (150分) －－－－－－－－－－－－－－－－－－－－－－－转自网络 在系统菜单加入子菜单 unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }    procedure RegisterMsg (var Msg: TMsg;var Handled: boolean);  end; var  Form1: TForm1; implementation {$R *.DFM} procedure AppendToSystemMenu (Form: TForm;                               Item: string; ItemID: word); {----------------------------------------------------------------} { Appends menu item to end of system menu of specified form and  } { to system menu of application's minimized icon.  For separator } { bar, use '-' for the Item, and 0 for the ItemID.               } {----------------------------------------------------------------} var   NormalSysMenu, MinimizedMenu: HMenu;   AItem: array[0..255] of Char;   PItem: PChar; begin   NormalSysMenu := GetSystemMenu(Form.Handle, false);   MinimizedMenu := GetSystemMenu(Application.Handle, false);   if Item = '-' then   begin     AppendMenu(NormalSysMenu, MF_SEPARATOR, 0, nil);     AppendMenu(MinimizedMenu, MF_SEPARATOR, 0, nil);   end   else   begin     PItem := StrPCopy(@AItem, Item);     AppendMenu(NormalSysMenu, MF_STRING, ItemID, PItem);     AppendMenu(MinimizedMenu, MF_STRING, ItemID, PItem);   end; end; {AppendToSystemMenu} procedure TForm1.RegisterMsg (var Msg: TMsg;var Handled: boolean); begin  if Msg.Message = WM_SYSCOMMAND then  begin    if Msg.wParam = 99 then    begin      ShowMessage('欢迎注册');       {Registration stuff}    end;  end; end; procedure TForm1.FormCreate(Sender: TObject); begin  AppendToSystemMenu(Form1, '-', 0);  {Separator bar}  AppendToSystemMenu(Form1, '&Please Register...', 99);  Application.OnMessage := Form1.RegisterMsg; end; end. 参考 http://www.delphibbs.com/delphibbs/modifyl.asp?lid=2075320 标题：在Windows右键菜单中加入像"发送到"一样的子菜单,先出300分 (300分)

yangyih007 · 2005-09-13

首先感谢你的回应，不过你的不是我想要的东西，我的意思是创建好PM1弹出式菜单后，然后在上面的一个菜单项目中在加入一个子菜单，另外你说的那些东西我都懂，如果是这样的答案我就没有必要问了。我现在全部使用api编写一个程序，没有TFORM，如果不是这样我有更加方便的解决方法。而且那个菜单我已经编写完成，可是不知道如何按照我的要求在这个菜单里加入子菜单而已。

chenybin · 2005-09-13

太难了，不过不知道为什么不能用AppendMenu， 关于菜单的API函数不多， AppendMenu   CheckMenuItem   GetMenuCheckMarkDimensions   GetMenuState   GetMenuString   InsertMenu   ModifyMenu 好像MSND里面就这几个，而所谓API的其实只有AppendMenu和InsertMenu是和楼主程序相关的，我的MSDN太老了？等高手

yangyih007 · 2005-09-13

我试验过insertmenu，那只是插入菜单而已，对这样的问题没有帮助，好像ModifyMenu也是不对题，不过我想在有TForm时候使用Tpopumenu却可以轻易实现，我有一个程序，全部动态创建所有菜单，所以我对菜单创建还是有些研究的，现在想用api的方式实现那些功能，但是到了子菜单时候却遇到死胡同，我是追求完美的人，如果这个问题无法解决，那么这个程序就没有生存的价值了。

chenybin · 2005-09-13

先给一个建议，完美是无边，楼主还是不要自扰了。 楼主的问题实在太高深了，我回答不了，既然说到Popupmenu，就看一下代码吧，看看有用没有，他是用InsertMenu的 procedure TMenuItem.AppendTo(Menu: HMENU; ARightToLeft: Boolean); const  IBreaks: array[TMenuBreak] of DWORD = (MFT_STRING, MFT_MENUBREAK, MFT_MENUBARBREAK);  IChecks: array[Boolean] of DWORD = (MFS_UNCHECKED, MFS_CHECKED);  IDefaults: array[Boolean] of DWORD = (0, MFS_DEFAULT);  IEnables: array[Boolean] of DWORD = (MFS_DISABLED or MFS_GRAYED, MFS_ENABLED);  IRadios: array[Boolean] of DWORD = (MFT_STRING, MFT_RADIOCHECK);  ISeparators: array[Boolean] of DWORD = (MFT_STRING, MFT_SEPARATOR);  IRTL: array[Boolean] of DWORD = (0, RightToLeftMenuFlag);  IOwnerDraw: array[Boolean] of DWORD = (MFT_STRING, MFT_OWNERDRAW); var  MenuItemInfo: TMenuItemInfo;  Caption: string;  NewFlags: Integer;  IsOwnerDraw: Boolean;  ParentMenu: TMenu; begin  if FVisible then  begin    Caption := FCaption;    if GetCount > 0 then      MenuItemInfo.hSubMenu := GetHandle    else if (FShortCut <> scNone) and ((Parent = nil) or            (Parent.Parent <> nil) or not (Parent.Owner is TMainMenu)) then      Caption := Caption + #9 + ShortCutToText(FShortCut);    if Lo(GetVersion) >= 4 then    begin      MenuItemInfo.cbSize := 44; // Required for Windows 95      MenuItemInfo.fMask := MIIM_CHECKMARKS or MIIM_DATA or MIIM_ID or        MIIM_STATE or MIIM_SUBMENU or MIIM_TYPE;      ParentMenu := GetParentMenu; //      IsOwnerDraw := Assigned(ParentMenu) and ParentMenu.IsOwnerDraw or      IsOwnerDraw := Assigned(ParentMenu) and                     (ParentMenu.OwnerDraw or (GetImageList <> nil)) or                     Assigned(FBitmap) and not FBitmap.Empty;      MenuItemInfo.fType := IRadios[FRadioItem] or IBreaks[FBreak] or        ISeparators[FCaption = cLineCaption] or IRTL[ARightToLeft] or        IOwnerDraw[IsOwnerDraw];      MenuItemInfo.fState := IChecks[FChecked] or IEnables[FEnabled]        or IDefaults[FDefault];      MenuItemInfo.wID := Command;      MenuItemInfo.hSubMenu := 0;      MenuItemInfo.hbmpChecked := 0;      MenuItemInfo.hbmpUnchecked := 0;      MenuItemInfo.dwTypeData := PChar(Caption);      if GetCount > 0 then        MenuItemInfo.hSubMenu := GetHandle;      InsertMenuItem(Menu, DWORD(-1), True, MenuItemInfo);    end    else    begin      NewFlags := Breaks[FBreak] or Checks[FChecked] or Enables[FEnabled] or        Separators[FCaption = cLineCaption] or MF_BYPOSITION;      if GetCount > 0 then        InsertMenu(Menu, DWORD(-1), MF_POPUP or NewFlags, GetHandle,          PChar(FCaption))      else        InsertMenu(Menu, DWORD(-1), NewFlags, Command, PChar(Caption));    end;  end; end;

yangyih007 · 2005-09-13

估计你提的方法也无用，其实同样的程序我已经编写出来，只是觉得有可能用Api方式也能实现，所以我想试验一下而已。这样也是提高自己水平的一种方式。另外以前我编写一个dll作为资源管理器的扩展，居然很糊涂的实现了子菜单的功能，不过当时不是我需要的，所以没有心得留下，现在有些后悔。

chenybin · 2005-09-13

那你就把比较完整的测试代码贴上来，或许大虾看到给你一些指点

yangyih007 · 2005-09-13

我的程序比较复杂，其实大侠们是不需要的，所以我觉得没有必要，本来我觉得既然能够用api创建一个菜单，那么再添加一个子菜单应该也不是难题，所以才想来问一下，现在看来是难以实现了，因为如果可以实现也就是2－3行代码的问题而已，不会很复杂的，只是我现在不懂而已，我有个经验，就是当问题经过时间考验以后经常很容易解决。等一下可能会有收获。

chenybin · 2005-09-16

果然是高手

yangyih007 · 2005-09-13

可是问题还没有头绪呢？到时候我拿什么给别人？耐心点吧，其实一段优秀的代码比那些分更加重要。

chenybin · 2005-09-15

既然这样，对我这样的初学者，楼主能不能把测试代码放出来，学习以下，同时也看看能不能做一定修改呢

yangyih007 · 2005-09-15

chenybin:怎么到处看到你呢？你好像就是在要分啊？如果对别人有帮助的话，要求也是可以的。可是我的问题根本没有解决，就这样把分发出去不好吧？还是这里只要是灌水就可以得分呢？我认为这样得分很不好。

app2001 · 2005-09-15

AppendMenu 函数原型： 　　BOOL AppendMenu( 　　　　　HMENU hMenu, // 要定制的菜单句柄 　　　　　UINT uFlags, // 怎样定制菜单项 　　　　　UINT uIDNewItem, // 要定制的菜单项标识或子菜单句柄 　　　　　LPCTSTR lpNewItem // 要定制的菜单项(字串) 　　　　); 　　在 AppendMenu 函数里，lpNewItem 和 uIDNewItem 参数依赖 uFlags 的不同标志而有所变化。 　　唯一限制：系统菜单中添加的菜单项的ID值（uIDNewItem）必须小于 $F000(十进制：61440)；否则会与Windows系统菜单命令所使用的ID值相冲突。还要记住当为这些新菜单在窗口过程中处理WM_SYSCOMMAND消息时，必须把其它的WM_SYSCOMMAND消息发给DefWindowsProc(在Delphi中秩序在事件处理程序最后加入一句 Inherited

，否则，嘿嘿，你试试就知道了。 但我也没用这个函数来生成子菜单成功，我是用这个方法 var  Added             : UINT;  menuItemInfo      : TMenuItemInfo;  TempMenu          : HMENU;  function Make_HResult(sev, fac, code: Word): DWord;  begin    Result := (sev shl 31) or (fac shl 16) or code;  end;  procedure BuildsubMenu(const ID: Integer; subMenuName: PAnsiChar;    resourceName:    string);  begin    menuitemInfo.dwTypeData := subMenuName;    menuitemInfo.cch := sizeof(subMenuName);    menuitemInfo.wID := IDCmdFirst + ID;    menuitemInfo.hSubMenu := 0;    InsertMenuItem(TempMenu, IndexMenu, True, menuItemInfo); //子菜单1    SetMenuItemBitmaps(TempMenu, indexMenu, MF_BYPOSITION,      LoadBitmap(HInstance, PChar(resourceName)), 0);  end; begin  Result := 0;  if Menu = 0 then    TempMenu := CreateMenu  else     TempMenu := Menu;  with menuitemInfo do                // Build the menu items here  begin     cbSize := SizeOf(TMenuItemInfo);     fMask := MIIM_ID or MIIM_SUBMENU or MIIM_TYPE;     fType := MFT_STRING;     fState := MFS_ENABLED;   end;   InsertMenu(Menu, indexMenu, mfSeparator, 0, nil); //分隔线   Inc(IDCmdFirst);   menuitemInfo.dwTypeData := MenuStr;   menuitemInfo.cch := sizeof(MenuStr);   menuitemInfo.hSubMenu := CreatePopupMenu;   TempMenu := menuitemInfo.hSubMenu;   menuitemInfo.wID := IDCmdFirst + IDMainMenu;   InsertMenuItem(Menu, IndexMenu, True, menuItemInfo); //主菜单   SetMenuItemBitmaps(Menu, indexMenu, MF_BYPOSITION,     LoadBitmap(HInstance, PChar('myBitmap')), 0);   Inc(IDCmdFirst);   InsertMenu(Menu, indexMenu, mfSeparator, 0, nil); //分隔线 +Added   Inc(IDCmdFirst);   BuildsubMenu(idClearTemp, '子菜单1, 'mybmp1'); //生成子菜单   BuildsubMenu(idCopyAnywhere, '子菜单2', 'mybmp2');   BuildsubMenu(idWipeFile, '子菜单3', 'mybmp3');   BuildsubMenu(IDBatchRename, '子菜单4', 'mybmp3'); end;

kinneng · 2005-09-16

API创建子菜单就像吃豆豆，具体我就没时间帮你写了，提示一下 MF_POPUP

chenybin · 2005-09-16

其实说白了吧，我认为用AppendMenu可以解决，所以我想让楼主把代码贴出来，说不定可以帮你看到问题所在，就这么简单，但是楼主一直觉得不屑给我这样的初学者贴代码，唉……

yangyih007 · 2005-09-21

我的程序初步如下，由于的API知识很有限，所以不足之处很多，如果有高手请为我修改一下：（主要目标是能够将几个菜单继承在mainmenu中，目前以我的能力无法办到） program Menu2005; uses  Windows,Messages,mmsystem,SysUtils,shellapi; var  WinClass: TWndClassA;  Inst, Handle: Integer;  Msg: TMsg;  play,cdplay:boolean;  trueid,lockid,command,songpos,songsum:integer;  f:textfile;  mainmenu,urlmenu,myfilemenu,mediamenu,progmenu:hmenu;  aatom:atom;  cddrive:string; {$R *.RES} const extstr='.mp3.mpg.mpeg.mpga.mid.wav.wma'; maincount=6; mainstr:array[0..maincount] of string=('我的菜单','快捷访问','网站','程序','多媒体','-', '退出'); mediacount=3; mediastr:array[0..mediacount]of string=('返回菜单','播放','停止','AudioCD'); function isfile(substr,str:string):boolean; var i:integer; begin result:=false; i:=pos(substr,str); if i>0 then result:=true; end; procedure closetimer; begin lockid:=Settimer(handle,1000,200,nil); end; procedure stopsong; begin play:=false; //cdplay:=false; Killtimer(handle,trueid); mciSendString ('stop myAudio', nil, 0, 0); mciSendString ('close myAudio', nil, 0, 0); end; function SendMCIString(cmd

Char) : string; var x: hwnd;    a: array [0..20] of char; begin x:=0; mciSendString(cmd, a, 20, x); SendMCIString := a; end; function gettime(track:integer):integer; var min,sec,mci:string; begin mci:= 'seek myAudio to ' +inttostr(track+1); SendMCIString(PChar(mci)); mci := SendMCIString('status myAudio media present'); if mci = 'true' then begin mci := 'status myAudio length track ' + IntToStr(track+1); mci:= SendMCIString(PChar(mci)); sec:= Copy(mci, 4, 2); min:= Copy(mci, 0, 2); end; result:=strtoint(min)*60+strtoint(sec); end; procedure playcdtrack(track:integer); begin SendMCIString('open myAudio wait shareable'); mciSendString('play myAudio notify', nil, 0, 0); mciSendString ('play myAudio', nil, 0, 0); SendMCIString(PChar('play myAudio from ' + IntToStr(track+1))); end; procedure playsong(track:integer); var i:integer; f:textfile; Buffer : array [0..255] of char; ext:string; begin AssignFile(f,'song.txt'); Reset(f); for i:=0 to track do Readln(f,cddrive); Closefile(f); GetShortPathName(pchar(cddrive), @Buffer, sizeof(Buffer)); ext:=extractfileext(cddrive); ext:=ansilowercase(ext); if not  isfile(ext,extstr) then begin if songpos=songsum-1 then begin stopsong; exit;end; songpos:=songpos+1; play:=false; playsong(songpos); closetimer; exit; end; mciSendString ('close myAudio', nil, 0, 0); mciSendString (pChar('open ' + buffer + ' alias myAudio'), nil, 0, 0); mciSendString('play myAudio notify', nil, 0, handle); end; procedure nextsong; begin if songpos=songsum-1 then begin stopsong; exit;end; songpos:=songpos+1; play:=false; playsong(songpos); closetimer; end; function getcdtrack(drive:string):integer; var tracks:integer; Buffer : array [0..255] of char; begin GetShortPathName(pchar( drive+'Track01.cda' ), @Buffer, sizeof(Buffer)); mciSendString ('stop myAudio', nil, 0, 0); mciSendString ('close myAudio', nil, 0, 0); mciSendString (pChar('open ' + buffer + ' alias myAudio'), nil, 0, 0); mciSendString('play myAudio notify', nil, 0, handle); mciSendString ('play myAudio', nil, 0, 0); SendMCIString('open myAudio wait shareable'); SendMCIString('stop myAudio'); SendMCIString('set myAudio time format tmsf wait'); tracks:=strtoint(SendMCIString('status myAudio number of tracks')); result:=tracks; end; function DiskInDrive(Drive: Char): Boolean; var ErrorMode: word; begin { make it upper case } if Drive in ['a'..'z'] then Dec(Drive, $20); { make sure it's a letter } if not (Drive in ['A'..'Z']) then raise EConvertError.Create('Not a valid drive ID'); { turn off critical errors } ErrorMode := SetErrorMode(SEM_FailCriticalErrors); try { drive 1 = a, 2 = b, 3 = c, etc. } if DiskSize(Ord(Drive) - $40) = -1 then Result := False else Result := True; finally { restore old error mode } SetErrorMode(ErrorMode); end; end; function IsAudioCD(Drive : char):boolean; var  DrivePath : string;   MaximumComponentLength : DWORD;   FileSystemFlags : DWORD;   VolumeName : string;   DriveType: UINT; begin   Result := false;   DrivePath := Drive + ':/';   DriveType := GetDriveType(Pchar(DrivePath));   if DriveType <> DRIVE_CDROM then      exit;   SetLength(VolumeName, 64);   GetVolumeInformation(PChar(DrivePath),                        PChar(VolumeName),                        Length(VolumeName),                        nil,                        MaximumComponentLength,                        FileSystemFlags,                        nil,                        0);   if lStrCmp(PChar(VolumeName),'Audio CD') = 0 then result := true; end; Function FindCDROMDrive: Char; Var drivemap, mask: DWORD; i: Integer; root: String; Begin Result := #0; root := 'A:/'; drivemap := GetLogicalDrives; mask := 1; For i:= 1 To 32 Do Begin If (mask and drivemap) <> 0 Then If GetDriveType( PChar(root) ) = DRIVE_CDROM Then Begin Result := root[1]; if diskindrive(result)and isaudiocd(result) then begin cddrive:=result+':/'; end  else begin setwindowtext(handle,pchar('No AudioCD')); cddrive:=''; end; end; mask := mask shl 1; Inc( root[1] ); end; End; procedure playcd; var i:integer; begin if not cdplay then begin FindCDROMDrive; if cddrive='' then exit; songsum:=getcdtrack(cddrive); AssignFile(f,'audio.txt'); ReWrite(f); AppendMenu (mediamenu, MF_STRING, 4, '-'); for i:=0 to songsum-1 do  begin Writeln(f,inttostr(gettime(i))); AppendMenu (mediamenu, MF_STRING, i+5, pchar('Track'+inttostr(i+1))); end; Closefile(f); playcdtrack(0); cdplay:=true; end; end; procedure myfilemenucreate; var i,p:integer; str:string; pt:tpoint; begin AssignFile(f,'myfile.txt'); Reset(f); i:=0; myfilemenu:=CreatePopupMenu; appendmenu(myfilemenu, MF_popup, 0, '返回菜单'); repeat i:=i+1; Readln(f,str); p:=pos('|',str); str:=copy(str,1,p-1); appendmenu(myfilemenu, MF_popup, i, pchar(str)); until eof(f); getcursorpos(pt); TrackPopupMenu (myfilemenu, tpm_BottomAlign or tpm_RightAlign, pt.x+150,pt.y-10, 0, handle, Nil); end; procedure urlmenucreate; var i,p:integer; str:string; pt:tpoint; begin AssignFile(f,'url.txt'); Reset(f); i:=0; urlmenu:=CreatePopupMenu; appendmenu(urlmenu, MF_popup, 0, '返回菜单'); repeat i:=i+1; Readln(f,str); p:=pos('|',str); str:=copy(str,1,p-1); appendmenu(urlmenu, MF_popup, i, pchar(str)); until eof(f); getcursorpos(pt); TrackPopupMenu (urlmenu, tpm_BottomAlign or tpm_RightAlign, pt.x+150,pt.y-10, 0, handle, Nil); end; procedure progcreate; var i,p:integer; str:string; pt:tpoint; begin AssignFile(f,'program.txt'); Reset(f); i:=0; progmenu:=CreatePopupMenu; appendmenu(progmenu, MF_popup, 0, '返回菜单'); repeat i:=i+1; Readln(f,str); p:=pos('|',str); str:=copy(str,1,p-1); appendmenu(progmenu, MF_popup, i, pchar(str)); until eof(f); getcursorpos(pt); TrackPopupMenu (progmenu, tpm_BottomAlign or tpm_RightAlign, pt.x+150,pt.y-10, 0, handle, Nil); end; procedure mediacreate; var i:integer; begin mediamenu:=createpopupmenu; for i:=0 to mediacount do appendmenu(mediamenu, MF_popup, i, pchar(mediastr)); end; procedure mainmenuclick(cmd:word); var i,p:integer; str:string; begin case command of //myfile 1:begin if cmd=0 then begin command:=0; exit; end; AssignFile(f,'myfile.txt'); Reset(f); for i:=0 to cmd-1 do Readln(f,str); p:=pos('|',str); delete(str,1,p); ShellExecute(handle,nil,pchar(str),nil,nil,sw_shownormal); end; //net 2:begin if cmd=0 then begin command:=0; exit; end; AssignFile(f,'url.txt'); Reset(f); for i:=0 to cmd-1 do Readln(f,str); p:=pos('|',str); delete(str,1,p); ShellExecute(handle,nil,pchar(str),nil,nil,sw_shownormal); end; //program 3:begin if cmd=0 then begin command:=0; exit; end; AssignFile(f,'program.txt'); Reset(f); for i:=0 to cmd-1 do Readln(f,str); p:=pos('|',str); delete(str,1,p); ShellExecute(handle,nil,pchar(str),nil,nil,sw_shownormal); end; //mediaplay 4:begin case cmd of 0:begin command:=0; exit; end; //playsong; 1:begin AppendMenu (mediamenu, MF_STRING, 4, '-'); AssignFile(f,'song.txt'); Reset(f); i:=0; repeat i:=i+1; Readln(f,str); str:=extractfilename(str); AppendMenu (mediamenu, MF_STRING, i+4, pchar(str)); until eof(f); songsum:=i; Closefile(f); songpos:=0; playsong(0); cdplay:=false; end; //stopsong; 2:begin stopsong; cdplay:=false; end; //play AudioCD 3:begin stopsong; playcd; end; //plyasong(i); 5..1000:begin songpos:=cmd-5; if cdplay then playcdtrack(songpos) else begin stopsong; playsong(songpos); end; end; end; end; 0:begin case cmd of 1:begin myfilemenucreate; command:=1; end; 2:begin urlmenucreate; command:=2; end; 3:begin progcreate; command:=3; end; 4:begin mediacreate; command:=4; end; maincountostMessage (handle, wm_Close, 0, 0); end; end; end; end; procedure creatmainmenu; var i:integer; begin mainmenu:=CreatePopupMenu; for i:=0 to maincount do appendmenu(mainmenu, MF_string, i, pchar(mainstr)); aatom:=globaladdatom('hot key'); RegisterHotKey(handle,aatom,0,VK_F2); end; { Custom WindowProc function } function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall; var pt: TPoint; begin Result := DefWindowProc(hWnd, uMsg, wParam, lParam); case uMsg of wm_hotkey:begin GetCursorPos (pt); case command of 0:TrackPopupMenu (mainmenu, tpm_BottomAlign or tpm_RightAlign, pt.x,pt.y, 0, handle, Nil); 1:TrackPopupMenu (myfilemenu, tpm_BottomAlign or tpm_RightAlign, pt.x,pt.y, 0, handle, Nil); 2:TrackPopupMenu (urlmenu, tpm_BottomAlign or tpm_RightAlign, pt.x,pt.y, 0, handle, Nil); 3:TrackPopupMenu (progmenu, tpm_BottomAlign or tpm_RightAlign, pt.x,pt.y, 0, handle, Nil); 4:TrackPopupMenu (mediamenu, tpm_BottomAlign or tpm_RightAlign, pt.x,pt.y, 0, handle, Nil); end; closetimer; end; wm_timer:begin if command=4 then play:=true; Killtimer(handle,lockid); end; MM_MCINOTIFY: if play then nextsong; WM_COMMAND:begin mainmenuclick(wparam); end; wm_create:begin end; wm_close:begin end; WM_DESTROY:begin stopsong; UnRegisterClass('mymenu',Inst); ExitProcess(Inst); halt; end; end; end; begin  { ** Register Custom WndClass ** }  Inst := hInstance;  with WinClass do  begin    style              := CS_CLASSDC or CS_PARENTDC;    hIcon              := LoadIcon(Inst,'MAINICON');    lpfnWndProc        := @WindowProc;    hInstance          := Inst;    hbrBackground      := color_btnface + 1;    lpszClassname      := 'mymenu';    hCursor            := LoadCursor(0, IDC_ARROW);  end; { with }  RegisterClass(WinClass);  { ** Create Main Window ** }  Handle := CreateWindowEx(WS_EX_TOOLWINDOW , 'mymenu', 'Mymenu 1.0',                         WS_CAPTION or WS_SYSMENU,                          150, 150,205, 48, 0, 0, Inst, nil); UpdateWindow(Handle); creatmainmenu; command:=0;      { ** Message Loop ** } while(GetMessage(Msg, Handle, 0, 0)) do begin TranslateMessage(msg); DispatchMessage(msg); end; { with } end.

yangyih007 · 2005-09-21

yangyih007 · 2005-09-21

上面两条是抛砖引玉的内容，还不完善。

如何添加子菜单 ( 积分: 100 )

yangyih007

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

yangyih007

Unregistered / Unconfirmed

Similar threads