有人知道TMainMenu的屬性編輯器是那個嗎 |
答題得分者是:James
|
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
|
James
高階會員 發表:10 回覆:290 積分:220 註冊:2002-07-25 發送簡訊給我 |
|
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
|
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
我去網站上找了一段menu屬性編輯器的code,不過MnuBuild始終就是找不到 我的環境是d7,有沒有人能幫我測一下呢?看要怎麼設才會過,
這段code應該是for d6的,我查過MnuBuild這個字串,在C:\Program Files\Borland\Delphi7\Bin下有幾個bpl裏有,不過好像add進來還是找不到MnuBuild,不知有沒有人用過TMenuBuilder成功過的,在d7,可以指點一下嗎?謝謝
引言: unit test; interface uses Windows, Messages, Controls, Graphics, StdCtrls, forms, Classes, SysUtils, menus, DesignIntf,MnuBuild; type TMyNewPopUpMenu = class(TPopUpMenu) end; TMyNewMenuBuilder = class(TMenuBuilder) public constructor Create(AOwner: TComponent); override; end; TMyNewMenuEditor = class(TMenuEditor) public procedure Edit; override; end; procedure Register; implementation {=========================================} procedure Register; begin RegisterComponents('My Components', [TMyNewPopUpMenu]); RegisterComponentEditor(TMyNewPopUpMenu, TMyNewMenuEditor); end; {=========================================} constructor TMyNewMenuBuilder.Create(AOwner: TComponent); begin inherited Create(AOwner); Height:=300; Width:=200; end; var FBuilder: TMyNewMenuBuilder; {=========================================================} procedure TMyNewMenuEditor.Edit; begin if not Assigned(FBuilder) then FBuilder:=TMyNewMenuBuilder.Create(Application.MainForm); FBuilder.Show; FBuilder.SetMenu(TMyNewPopUpMenu(Component).Items, Designer); FBuilder.Caption:='MY MENU BUILDER' FBuilder.Caption; end; {=========================================================} initialization FBuilder:=nil; finalization FBuilder.Free; FBuilder:=nil; end. |
James
高階會員 發表:10 回覆:290 積分:220 註冊:2002-07-25 發送簡訊給我 |
|
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |