Y yishion568 Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-11 #1 在程序主窗口上摆放Tmenu控件和Tbutton控件,名称分别为menu1和button1.设置主窗口的Menu为menu1.在button1的Click事件中增加代码实现如下的程序.(注意menu1的子菜单不能在程序设计时使用菜单设计器手动添加,必须使用代码在程序执行时当点击Button1是自动添加.
在程序主窗口上摆放Tmenu控件和Tbutton控件,名称分别为menu1和button1.设置主窗口的Menu为menu1.在button1的Click事件中增加代码实现如下的程序.(注意menu1的子菜单不能在程序设计时使用菜单设计器手动添加,必须使用代码在程序执行时当点击Button1是自动添加.
J Johnny_du Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-11 #3 procedure TForm1.Button1Click(Sender: TObject); var mi: TMenuItem; begin mi := TMenuItem.Create(MainMenu1); mi.Caption := 'aa'; MainMenu1.Items.Add(mi); end;
procedure TForm1.Button1Click(Sender: TObject); var mi: TMenuItem; begin mi := TMenuItem.Create(MainMenu1); mi.Caption := 'aa'; MainMenu1.Items.Add(mi); end;
S socid Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-11 #4 象这样的话都不一定要事先放个TMENU在设计窗口上，一并在程序运行时建立就可以
