Delphiは、動的にコントロールを追加します

{ 動的にナビゲーションを追加} 
VARの
PANLを：TPanelを、
メインページ、サブページ：TPageControlに入っ; 
TabSheet1：TTabSheet; 
ToolBar2：TToolBar; 
スプリッタ：TSplitterを; 
開始
{ ナビゲーションツリーを作成し始める} 
 PANL： = TPanel。作成します（セルフ）;
  と PANLは   ない
 始める
    親を： = MainFormを; 
    左： = 0 ; 
    トップ： = 30   ; 
    幅： = 185 ; 
    身長： = 381 ; 
    アライン： = alLeft。
    キャプション：= ' パネル1 ' ; 
    TabOrderプロパティ： = 2 ;
   エンド;
   { ナビゲーションツリーの端を作成する} 

        メインページを： =は、TPageControl。作成します（セルフ）;
         とメインページか
        始まる
        親を： = PANL; 
            左： = 0 ; 
            トップ： = 0 ; 
            幅： = 235 ; 
            高さ： = 410 ; 
            のにActivePage： =TabSheet1; 
            揃える： falseは、 = alClientを。
            BiDiModeプロパティ： = bdLeftToRight。
            Font.Charset： = DEFAULT_CHARSET。
            Font.Color： = clWindowText。
            Font.Height： = - 13 。
            Font.Name： = ' MS Pゴシック' ; 
            Font.Style： = []; 
            複数行： = 真; 
            ParentBiDiMode： = falseは、
            ParentFont： = 
            TabOrderプロパティ： = 0; 
            TabPosition： = tpLeft。
         エンド; 
         TabSheet1： = TTabSheet。作成（自己）; 
         TabSheet1.Parent： = メインページ。
         TabSheet1.Caption： = ' 树形导航' ; 

         ToolBar2： = TToolBar。作成（自己）; 

        ToolBar2 行う始まる
        親を： = TabSheet1。
                左： = 0 ; 
                トップ： = 0
                幅：
        ; = 207 。
                身長： = 30 ; 
                ButtonHeight： = 28 ; 
                buttonWidth： = 29 ; 
                キャプション： = ' ToolBar2 ' ; 
                EdgeInner： = esNone。
                EdgeOuter： = esNone。
                フラット： = 真; 
                画像： = ImageList1。
                TabOrderプロパティ： = 0 ; 
                タブストップ： =真; 
                Wrapable： = falseは、
         エンド; 

  { スプリッタスタート追加} 
  スプリッタを： = TSplitter。作成します（セルフ）;
   とスプリッタ   ん
  始まる
    親： = のMainFormを; 
    左： = 185 ; 
    トップ： = 30 ; 
    身長： = 381 ;
   エンド;
   { スプリッタ端追加} 
端部を、

コードの表示

デルファイは、動的にメニューを作成しました

デルファイ動的に作成されたメニューの

手順TForm1.Button1Click（送信者：TObjectを）;
 VAR 
のMainMenu：TMainMenuコンポーネントによって公開さ; 
のMenuItem：TMenuItem; 
始める
// オブジェクトのメインメニューオブジェクトを作成し、メインウィンドウのメニューを設定するメインメニュー 
メインメニュー：= TMainMenuコンポーネントによって公開された作成（セルフ）; 
Self.Menu： = メインメニュー; 

//は、メインメニューオブジェクトのメインメニュー最初のレベルのメニューを作成MainMenu.Items.Add 
メニューアイテムを：= TMenuItem 作成（メインメニュー）; 
MenuItem.Caption： = 「メニュー」; 
MainMenu.Items.Add （のMenuItem）; 

// メインメニュー第二のサブメニューは、オブジェクトのメインメニューを作成MainMenu.Items [0] .Add 
のMenuItem：= TMenuItem 作成 =（メインメニュー）。
MenuItem.Caption：' 二次メニュー' ; 
MainMenu.Items [ 0 ] .Add（のMenuItem）; 

// メインメニューを作成メインメニュー第三のレベルのサブメニューがMainMenu.Itemsオブジェクト[0] .Items [0] .Add 
のMenuItem：= TMenuItem。作成（メインメニュー）; 
MenuItem.Caption： = ' 第3レベル' ; 
MainMenu.Items [ 0 ] .Items [ 0 ] .Add（のMenuItem）; 

// アイテムと[0] ...この形態では、4つを作成することができ、5個までのNレベルのメニューがあってもよい

：のMenuItem。= TMenuItem 作成し;（メインメニュー）
：MenuItem.Caption = ' 4つのメニュー' ; 
MainMenu.Items [ 0 ] .Items [0 ] .Items [0 ] .Add（のMenuItem）。

エンド ;

Delphiは、動的にコントロールを追加します

おすすめ