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:= 0 ;
    Top:= 30  ;
    Width:= 185 ;
    Height:= 381 ;
    Align:= alLeft;
    Caption:= 'Panel1';
    TabOrder:= 2;
  end;
  {创建导航树结束}

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

         ToolBar2:=TToolBar.Create(self);

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

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

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[0].Add(MenuItem);

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

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

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

end;

 

转载于:https://www.cnblogs.com/blogpro/p/11453462.html

你可能感兴趣的:(Delphi动态添加控件)