想問一下 我有一個MainMenu是 TMainMenu 元件來的 而當我雙擊MainMenu時就可以加入TMenuItem..... 但我就是想問一下如果可以在TMenuItem加入自己的Property 因為我在New Component 時找不到TMenuItem來 Inherit 麻煩大家了

不清楚妳為何有此需求,可否大概說明你為何要這樣作的用意?一般來說如果要加入自己的PROPERTY 妳可依下列文章作參考或尋求其他元件來因應需求 http://delphi.ktop.com.tw/topic.php?topic_id=54353 ========================= 讀萬卷書~不如來K.TOP走一遭 =========================

由於 TMenuItem 是不公布的。 就如同 PageControl 的 TTabSheet 一樣。 這樣並不妨礙您繼承 TMenuItem 不過，既使繼承 TMyMenuItem = Class(TMenuItem) 仍然沒作用。主要是 TMainMenu 還是利用TMenuItem 物件。 接下來，您還是要繼承 TMainMenu 與 TMenuItem 個別為新的元件。 並在所繼承 TMainMenu 改寫建立 TMenuItem 為TMyMenuItem

wameng 兄謝謝你的回應 我就是因為這個問題而頭痛耶 就是如果我自己加了一個新的TMyMenuItem 但我如何把TMainMenu Inherit TMyMenuItem ?

您可能要追蹤一下 TMenuItem.create 的動作。 我之前已碰到過類似的問題。 只不過我是修改 PageControl 的 TTabSheet 而且，您必須修改設計時期的編輯程式 如： TIMenuItemIntf 您可以參考在 Delphi 深度歷險有TIAeverMain 元件示範一些修改的技巧。 不過太累了！ 建議您要不然繼承 TMainMenu 就好了。 透過TMainMenu 來處理 TMenuItem

To wameng: 你說的方法我大概明白但要怎麼做呢可以po 一些coding 來教我一下嗎 我現在做了一個新的 TMyMenuItem 但怎麼令TMainMenu inherit TMyMenuItem呢 麻煩你了 發表人 - Dark852 於 2004/10/20 14:45:49

先前我已經說明過 如果您要建立 TMyMenuItem 繼承TMenuItem 那麼就一定要，在建立一個新的MainMenu來處理 TMyMenuItem 多出來的屬性。 至於原本的MainMenu處理TMenuItem 可以不用管他。 先在主要的困難點，在於IDE設計時 如何在原本選單編輯程式中。 新增的是 TMyMenuItem 而非 TMenuItem 由於涵蓋的範圍太廣。恕我太懶..... :=) 看看別人的成品吧！ 因此您不可能在用 TMainMenu --> TmyMenuItem(除非直接修改 Menus.pas) 應該是 TMyMainMenu --> TMyMenuItem

wameng 對不起又要麻煩你了 我現在自己設計了一個叫TMyMainMenu 但還是inherit 不到 TMyMenuItem 你叫我去看一下別人的作品 <---- 可以po 那條link 給我嗎 ^^ 謝謝

到Delphi 深度歷險 http://vcl.vclxx.org/DELPHI/DEFAULT.HTM

謝謝你了 wameng 我先看一下

Dark852：對不起插個花。wameng提供Delphi 深度歷險以下連結快些！ http://vcl.vclxx.org/DELPHI/AAAT102G.HTM#TMenu TMenu 相關類 http://vcl.vclxx.org/DELPHI/AAAT1004.HTM 全部的範例程式 按Ctrl+F搜尋menu 請參考！ Andy Chang

------
Andy Chang

wameng和andychang1690兩位大大.. 我也看過這個web site,但很多是不能work,而且看似很複雜...請問各位高人能解擇一下,或是post一下source code呢?

TMainMenu 與 TmenuItem 實在很難劃清。 並且 Delphi 所提供的繼承方法，彈性有限。 我之前是修改PageControl 的 TTabSheet，所以稍稍還有點這方面的概念。 由於 TMainMenu與TmenuItem，實在太難令人繼承了。 所以很多元件，都自己修改 Menus.Pas 並另起爐灶。 像是我之前所言的TIAeverMain這一個元件一樣。 但是像PageControl的TTabSheet，要修改還是比較簡單。 type TEvPageControlEditor = class(TDefaultEditor) procedure ExecuteVerb(Index: Integer); override; function GetVerb(Index: Integer): string; override; function GetVerbCount: Integer; override; end; procedure TEvPageControlEditor.ExecuteVerb(Index: Integer); Type TSheetClass = Class of TTabSheet; var PageCtl : TEvPageControl; Page : TTabSheet; Designer : IFormDesigner; Procedure CreatePageSheet(SheetClass:TSheetClass;Var SheetRef:TTabSheet); begin SheetRef := SheetClass.Create(Designer.Form); try With SheetRef do begin Name := Designer.UniqueName(SheetClass.ClassName); Parent := PageCtl; PageControl := PageCtl; Visible := PageCtl.TabsVisible; end; except SheetRef.Free; raise end; PageCtl.ActivePage := SheetRef; end; begin if Component is TTabSheet then PageCtl := TTabSheet(Component).PageControl as TEvPageControl else PageCtl := TEvPageControl(Component); if PageCtl <> nil then begin Designer := Self.Designer; Case Index of 0 :CreatePageSheet(TEvTabSheet,Page); 1 :CreatePageSheet(TEvWallTabSheet,Page); 2,3:begin Page := PageCtl.FindNextPage(PageCtl.ActivePage,Index = 2, False) as TTabSheet; if (Page <> nil) and (Page <> PageCtl.ActivePage) then PageCtl.ActivePage := Page end; end; Designer.SelectComponent(Page); Designer.Modified end end; function TEvPageControlEditor.GetVerb(Index: Integer): string; begin case Index of 0 : Result := 'New Page'; 1 : Result := 'New WallPage'; 2 : Result := 'Next Page'; 3 : Result := 'Previous Page' end end; function TEvPageControlEditor.GetVerbCount: Integer; begin Result := 4 end; 我建立編輯器 TEvPageControlEditor 已取代我們在PageControl上 按下右鍵，不是有一POPUPMENU / New Page/NextPage ....選項。 在這裡我們可以看到，在 New Page 項目中 我已經取代原本建立TTabSheet 改為我自己的 TEVTabSheet 由於 TMAINMENU 要修改MenuItem ，可比這個還要難上許多。 所以我建議倒不如 直接套用修改 Menus.pas 到新的物件上。 這樣的出發點，可能容易許多了。