类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我想一个TMainMenu控件,里面有很多菜单和子菜单,我想在另一个窗体创建的时候把菜单上的菜单一一对应一个TCheckBox动态的创建在该窗体上!
当菜单有子菜单时只创建子菜单,没有时则创建菜单本身!
网友回答：
var
Form1: TForm1;
MyCheckBox:TCheckBox;
procedure TForm1.Button1Click(Sender: TObject); //參考
begin
MyCheckBox:=TCheckBox.Create(nil);
MyCheckBox.parent := self;
Mycheckbox.Left:=100;
MyCheckBox.:=100;
MyCheckBox.Caption:=edit1.text;
end;
大多数控件都是这样的用一个create方法自己创建的
楼上的已经有一个好例子了，呵呵
先把TMainMenu中的菜单和子菜单的caption读出来，然后在一一对应动态的创建TCheckBox