|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/2 22:36:06 |
标题: |
动态ADD菜单选项的问题(菜鸟问题) |
浏览:1008 |
|
加入我的收藏 |
楼主: |
我今天学到创建窗口菜单,其中有几个问题不是很明白,以下是书的原文:
ADD方法:菜单项的ADD方法用于在下拉菜单中添加新的菜单项,该过程的原形为: procedure Add(item:TMenuItem); 菜单项ADD方法使用如下: procedure TForm1.Button1Click(Sender: TObject); var newitem : tmenuitem; begin newitem := tmenuitem.Create(self); newitem.caption := '123'; File1.add(newitem); end;
以上摘自教材部分内容。
我不知道上面的procedure Add(item:TMenuItem);这个过程该加到程序的哪个部分?是加在接口部分(interface)吗?或者大大们可不可以为我写一个类似上面的简单程序(通过点击某个按钮达到动态添加菜单选项的程序)?这样更容易理解些!请大家帮帮我!!!
----------------------------------------------
- |
作者: |
|
2004/3/3 9:15:48 |
1楼: |
怎么没有人帮一下呀?是不会还是不愿说?
----------------------------------------------
-
|
作者: |
xjr888 (arming) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/3/3 9:33:53 |
2楼: |
上面的代码写得已经很清楚了啊,照着做就可以了。 procedure Add(item:TMenuItem); 应该是 TMenuItem 的 add 方法,你直接调用就可以了。
----------------------------------------------
-
|
作者: |
|
2004/3/3 9:37:37 |
3楼: |
谢谢帮忙!!!!!
----------------------------------------------
-
|
|