Delphi动态添加控件

{动态添加导航}
var
Panl:Tpanel;
MainPage,Subpage:TPageControl;
TabSheet1: TTabSheet;
ToolBar2: TToolBar;
Splitter:TSplitter;
begin
{创建导航树开始}
 Panl:=Tpanel.Create(self);
 with Panl  do
 begin
    Parent := mainForm;
    Left:=  ;
    Top:=   ;
    Width:=  ;
    Height:=  ;
    Align:= alLeft;
    Caption:= 'Panel1';
    TabOrder:= ;
  end;
  {创建导航树结束}

        MainPage:=TPageControl.Create(self);
        with MainPage do
        begin
        Parent := Panl;
            Left := ;
            Top := ;
            Width := ;
            Height := ;
            ActivePage := TabSheet1;
            Align := alClient;
            BiDiMode := bdLeftToRight;
            Font.Charset := DEFAULT_CHARSET;
            Font.Color := clWindowText;
            Font.Height := -;
            Font.Name := 'MS Sans Serif';
            Font.Style := [];
            MultiLine := True;
            ParentBiDiMode := False;
            ParentFont := False;
            TabOrder := ;
            TabPosition := tpLeft;
         end;
         TabSheet1:=TTabSheet.Create(self);
         TabSheet1.Parent := MainPage;
         TabSheet1.Caption := '树形导航';

         ToolBar2:=TToolBar.Create(self);

        with ToolBar2 do
        begin
        Parent :=TabSheet1;
                Left := ;
                Top := ;
                Width := ;
                Height := ;
                ButtonHeight := ;
                ButtonWidth := ;
                Caption := 'ToolBar2';
                EdgeInner := esNone;
                EdgeOuter := esNone;
                Flat := True;
                Images := ImageList1;
                TabOrder := ;
                TabStop := True;
                Wrapable := False;
        end;

  {添加分割条开始}
  Splitter:=TSplitter.Create(self);
  with Splitter  do
  begin
    Parent := mainForm;
    Left := ;
    Top := ;
    Height:= ;
  end;
  {添加分割条结束}
end;

delphi 动态创建菜单

delphi 动态创建菜单

procedure TForm1.Button1Click(Sender: TObject);
var
MainMenu:TMainMenu;
MenuItem:TMenuItem;
begin
//创建主菜单对象,并设置主窗口的菜单为MainMenu对象
MainMenu:=TMainMenu.Create(Self);
Self.Menu:=MainMenu;

//创建MainMenu主菜单的第一级菜单对象 MainMenu.Items.Add
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='一级菜单';
MainMenu.Items.Add(MenuItem);

//创建MainMenu主菜单的第二级子菜单对象 MainMenu.Items[0].Add
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='二级菜单';
MainMenu.Items[].Add(MenuItem);

//创建MainMenu主菜单的第三级子菜单对象 MainMenu.Items[0].Items[0].Add
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='三级菜单';
MainMenu.Items[].Items[].Add(MenuItem);

// 用Items[0]...这种形式，可以创建 四级、五级直到N级菜单都可以

MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='四级菜单';
MainMenu.Items[].Items[].Items[].Add(MenuItem);

end;