unit1.~dfm

动态创建控件举例

object Form1: TForm1
  Left = 133
  Top = 115
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 689
    Height = 41
    TabOrder = 0
    object RadioRBtn: TRadioButton
      Left = 16
      Top = 16
      Width = 89
      Height = 17
      Caption = 'Radio Button'
      TabOrder = 0
      OnClick = RadioRBtnClick
    end
    object ButtonRBtn: TRadioButton
      Left = 120
      Top = 16
      Width = 81
      Height = 17
      Caption = 'Button'
      TabOrder = 1
      OnClick = ButtonRBtnClick
    end
    object LabelRBtn: TRadioButton
      Left = 208
      Top = 16
      Width = 57
      Height = 17
      Caption = 'Label'
      TabOrder = 2
      OnClick = LabelRBtnClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 656
    Top = 65520
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = '&Open'
        OnClick = Open1Click
      end
      object SaveAs1: TMenuItem
        Caption = '&Save As'
        OnClick = SaveAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 384
    Top = 8
  end
  object SaveDialog1: TSaveDialog
    Left = 432
    Top = 8
  end
end