unit1.dfm

Delphi面向对象编程思想附书源码 好用哦！

object Form1: TForm1
  Left = 305
  Top = 349
  Width = 558
  Height = 280
  Caption = 'Factory Method'#27169#24335#30340#21160#24577#25511#20214#21019#24314' V1.0'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 56
    Top = 208
    Width = 6
    Height = 12
  end
  object RadioGroup1: TRadioGroup
    Left = 344
    Top = 16
    Width = 185
    Height = 169
    Caption = #21160#24577#21019#24314#25511#20214
    ItemIndex = 0
    Items.Strings = (
      #26085#21382#25511#20214#65288'TMonthCalendar'#65289
      #25991#26412#32534#36753#26694#65288'TMemo'#65289
      #19979#25289#39068#33394#21015#34920#65288'TColorBox'#65289)
    TabOrder = 0
  end
  object Button1: TButton
    Left = 400
    Top = 200
    Width = 75
    Height = 25
    Caption = 'OK'
    TabOrder = 1
    OnClick = Button1Click
  end
end