关于TCheckBox动态的创建?请大家帮帮忙!

Question

我想一个TMainMenu控件,里面有很多菜单和子菜单,我想在另一个窗体创建的时候把菜单上的菜单一一对应一个TCheckBox动态的创建在该窗体上!
当菜单有子菜单时只创建子菜单,没有时则创建菜单本身!

Answer 1

var
  Form1: TForm1;
  MyCheckBox:TCheckBox;
procedure TForm1.Button1Click(Sender: TObject); //參考
begin
  MyCheckBox:=TCheckBox.Create(nil);
  MyCheckBox.parent := self;
  Mycheckbox.Left:=100;
  MyCheckBox.Top:=100;
  MyCheckBox.Caption:=edit1.text;
end;

Answer 2

大多数控件都是这样的用一个create方法自己创建的楼上的已经有一个好例子了，呵呵

Answer 3

先把TMainMenu中的菜单和子菜单的caption读出来，然后在一一对应动态的创建TCheckBox

Answer 4

var
  Frs: TPersistentClass;
begin
  Frs := GetClass('这里该填什么啊!');
end