u_form1.~dfm

很好地delphi书籍源码

object Form1: TForm1
  Left = 248
  Top = 107
  Width = 469
  Height = 292
  Caption = #27979#35797#20989#25968#26354#32447#32452#20214
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 96
    Top = 115
    Width = 43
    Height = 16
    Caption = 'Y=X*X'
  end
  object Label2: TLabel
    Left = 304
    Top = 114
    Width = 106
    Height = 16
    Caption = 'Y=Sin(2*X*X+X)'
  end
  object Label3: TLabel
    Left = 80
    Top = 242
    Width = 66
    Height = 16
    Caption = 'Y=Sqrt(X)'
  end
  object Label4: TLabel
    Left = 328
    Top = 242
    Width = 28
    Height = 16
    Caption = 'Y=X'
  end
  object FunctionCurve1: TFunctionCurve
    Left = 24
    Top = 8
    Width = 200
    RangeMinX = 0
    RangeMaxX = 1
    RangeMinY = 0
    RangeMaxY = 1
    OnUserFunc = FunctionCurve1UserFunc
  end
  object FunctionCurve2: TFunctionCurve
    Left = 240
    Top = 8
    Width = 200
    RangeMinX = 0
    RangeMaxX = 1
    RangeMinY = 0
    RangeMaxY = 1
    OnUserFunc = FunctionCurve2UserFunc
  end
  object FunctionCurve3: TFunctionCurve
    Left = 24
    Top = 136
    Width = 200
    RangeMinX = 0
    RangeMaxX = 1
    RangeMinY = 0
    RangeMaxY = 1
    OnUserFunc = FunctionCurve3UserFunc
  end
  object FunctionCurve4: TFunctionCurve
    Left = 240
    Top = 136
    Width = 200
    RangeMinX = 0
    RangeMaxX = 1
    RangeMinY = 0
    RangeMaxY = 1
    OnUserFunc = FunctionCurve4UserFunc
  end
end