Delphi编程实用小技巧（二）——自动创建按钮和菜单项

创建按钮的代码：
var
a2:TButton;
begin
a2:=TButton.Create(self); //创建按钮
a2.Parent:=form1; // 按钮属于那个窗口
a2.Caption:='按钮1';
a2.Left:=button1.Left-100;
a2.top:=button1.Top
end;
创建菜单的代码：
var
a1:tmenuitem;
begin
a1:=tmenuitem.Create(self);
a1.Caption:='菜单项1';
MainMenu1.Items.Insert(1,a1);
{或
MainMenu1.Items[1].Insert(1,a1); //插入到下拉菜单
}
end;