請問一下：

MainMenu的動態產生方法是不是跟一般的動態產生方法有些微的不同？

是不是要額外寫一些procedure才能動?

原本是用一般產生的方法去產生的，不過都會出現紅色警告框，不然就是沒有東西出現。

以下是測試用的↓

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
mi:TMenuItem;
begin
mi:=TMenuItem.create(Application);
mi.Caption:='測試';
mi.Visible:=true;
mi.add(mi);
end;[/code]

爬了文大家好像都也寫一些procedure或是一些其他的東西，有寫才有出現?不過那些地方有看沒懂。

下面是爬的其中一文，不知為什麼我執行不了。

http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=17944

PS：文章發錯版快了怎麼辦？這帖原本是要發在新手問題那邊的。

編輯記錄

為什麼執行不了!?請說明原因

網址的範例明明是寫：
MyMenu[i]);
為什麼你卻是寫成：
.add(); -->自己加自己?

請在這行上面做稍微的修改試看看

編輯記錄

[code delphi]
var i:integer;
mi:TMenuItem;
M:TMenuItem;
begin
mi:=TMenuItem.create(Application);
mi.Caption:='測試';
mi.Visible:=true;
M.Add(mi);
end;[/code]
改成這樣也不行，一按Button就出錯。

突然想一想，範例上TMenuItem的宣告哪一個是哪一個？還是都是動態產生的？

你確定有看清楚嗎?
在該篇文章中
二樓的lee站長不是有附連結了嗎?
"Root"這個menu的出處不是已經出現在lee站長所附的文章中了嗎...

載下來的檔案裡叫不出Form，所以我不也不太清楚，我看的對不對。

不過剛剛有試出東西來了。

得到的結果是要在Form裡先擺一個MainMenu元件，並在MainMenu裡先自行加一個TMenuItem，Name的屬性是Root1。

之後在用剛剛上面的東西就會跑出來了。

原本以為上面的只要先放一個MainMenu元件，然後在執行上面的程式碼就會有東西跑出來。

===================引 用 老大仔 文 章===================
你確定有看清楚嗎?
在該篇文章中
二樓的lee站長不是有附連結了嗎?
"Root"這個menu的出處不是已經出現在lee站長所附的文章中了嗎...