menudemo.dfm

Delphi basic program. Basic programing guide for delphi language. Several samples are giving.

object MainForm: TMainForm
  Left = 232
  Top = 201
  Width = 690
  Height = 424
  Caption = 'MainForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  PopupMenu = PopupMenu
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu: TMainMenu
    Left = 112
    Top = 88
    object M1: TMenuItem
      Caption = #25991#20214'(&F)'
      object m11: TMenuItem
        OnClick = m11Click
      end
      object m12: TMenuItem
        OnClick = m12Click
      end
      object M13: TMenuItem
        OnClick = M13Click
      end
      object M14: TMenuItem
        OnClick = M14Click
      end
      object m15: TMenuItem
      end
      object m16: TMenuItem
        OnClick = m16Click
      end
      object m17: TMenuItem
        OnClick = m17Click
      end
      object m18: TMenuItem
      end
      object m19: TMenuItem
        OnClick = m19Click
      end
    end
    object m2: TMenuItem
      object m21: TMenuItem
        OnClick = m21Click
      end
      object m22: TMenuItem
        OnClick = m22Click
      end
      object m23: TMenuItem
        OnClick = m23Click
      end
      object m24: TMenuItem
        OnClick = m24Click
      end
      object m25: TMenuItem
        OnClick = m25Click
      end
      object m26: TMenuItem
        OnClick = m26Click
      end
      object m27: TMenuItem
        OnClick = m27Click
      end
      object m28: TMenuItem
        OnClick = m28Click
      end
      object m29: TMenuItem
        OnClick = m29Click
      end
      object m210: TMenuItem
        OnClick = m210Click
      end
      object m211: TMenuItem
        OnClick = m211Click
      end
      object m212: TMenuItem
        OnClick = m212Click
      end
      object m213: TMenuItem
        OnClick = m213Click
      end
      object m214: TMenuItem
        OnClick = m214Click
      end
    end
    object m3: TMenuItem
      object m31: TMenuItem
        OnClick = m31Click
      end
      object m32: TMenuItem
        OnClick = m32Click
      end
    end
    object m4: TMenuItem
      object m41: TMenuItem
        OnClick = m41Click
      end
      object m42: TMenuItem
      end
      object m43: TMenuItem
        OnClick = m43Click
      end
    end
  end
  object PopupMenu: TPopupMenu
    Left = 256
    Top = 96
    object p1: TMenuItem
      OnClick = p1Click
    end
    object p2: TMenuItem
    end
    object p3: TMenuItem
      OnClick = p3Click
    end
    object p4: TMenuItem
      OnClick = p4Click
    end
    object p5: TMenuItem
      OnClick = p5Click
    end
    object p6: TMenuItem
      OnClick = p6Click
    end
    object p7: TMenuItem
    end
    object p8: TMenuItem
      OnClick = p8Click
    end
  end
end