Q
qlw
Unregistered / Unconfirmed
GUEST, unregistred user!
这段程序是过年前随手写的,是在一个已有的mainmenu的第一列子菜单
加上一个名为reopen的项。当时运行成功,现在再看,突然产生了疑惑:
请看做记号的那一行,按我的理解,self指的是form1,而m是menuitem,
为什么据我试验,用m和self都是可以的?
procedure TForm1.create(Sender: TObject);
var m:TmenuItem;
begin
m:=MainMenu1.Items.Items[0];
item:=TmenuItem.Create(m{self});//'self' and 'm' is all
// acceptable
try item.Caption:='reopen';
item.OnClick:=myclick;
m.Insert(2,item);
except
item.Free;
end;