end;
procedure register;
var
myntatest:tntatest;
implementation
procedure register;
begin
myntatest.addmenu;
//和传统组件的同名方法不同,这里没有在组件面板上安装图标
//而是直接调用addmenu方法添加我们的菜单
end;
end;
procedure register;
var
myntatest:tntatest;
implementation
procedure register;
begin
myntatest.addmenu;
//和传统组件的同名方法不同,这里没有在组件面板上安装图标
//而是直接调用addmenu方法添加我们的菜单
end;