想进就进来吧~~~~~~

风雨无阻

论坛元老

Rank: 9 Rank: 9 Rank: 9

1^# 大中小发表于 2002-6-24 08:24 只看该作者

想进就进来吧~~~~~~

增加一个新菜单项到File菜单的尾部的过程：
procedure Form1.Button1Click(Sender: TSender);
var
NewItem: TMenuItem;
begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption := ’New item’;
File.Add(NewItem);
end;
为什么总出错？

原创软件、游戏、知识问答——桃源工作室益智、博才、增长知识的软件——《开心知识问答》 走自己的路，让别人说去

TOP

boydreaming

梦中孩子

管理员

Rank: 12

2^# 大中小发表于 2002-6-24 08:56 只看该作者

想进就进来吧~~~~~~

少了数组下标
var MyItem: array[0..2] of TMenuItem;
begin
newItem[0] := TMenuItem.Create(Self);
newItem[0].Caption := ’’New item 0’’;
file.Items.Add(MyItem[0]);
:
:

欢迎访问 http://boydreaming.life365.com