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;