Subject: D7中添加的菜单如何解决需要点击一下以后才下拉？ [Print This Page]

---

Author: lcj8888    Time: 2006-1-4 09:18     Subject: D7中添加的菜单如何解决需要点击一下以后才下拉？

请教cnpack的各位老大：

在新的cnpack更新中发现解决了菜单点击一下后才下拉的问题：

*解决 D7 等 IDE 下 CnPack 菜单项可能需要点击才能下拉的问题。

我自己作的菜单也存在这个问题，

请教是如何解决的？

我下了代码，感觉和我写的没有什么本质区别？

我的代码如下：

var
  i : integer;
begin
  FDelphiMenu := (BorlandIDEServices as INTAServices).MainMenu;
  i := 0;
  while i < FDelphiMenu.Items.Count do begin
    if Pos('KsProjMng',FDelphiMenu.Items.Caption) > 0 then begin
      FDelphiMenu.Items.Delete(i);
    end else begin
      Inc(i);
    end;
  end;
  FPaletteMenu := TMenuItem.Create(Self);
  FPaletteMenu.AutoHotkeys := maManual;
  FPaletteMenu.Caption := '&KsProjMng';
  FDelphiMenu.Items.Insert(9, FPaletteMenu);

[ Last edited by lcj8888 on 2006-1-4 at 09:21 ]

---

Author: shenloqi    Time: 2006-1-4 09:47

估计是Group的问题吧

---

Author: Passion    Time: 2006-1-4 11:55

一个是先加入IDE再朝其下面加子菜单，
一个是先加子菜单再将其加入IDE。

---

Author: lcj8888    Time: 2006-1-4 20:32

多谢Passion，问题解决了

---

Welcome to CnPack Forum (http://bbs.cnpack.org/)

Powered by Discuz! 5.0.0