demoform.dfm

这是我帮同学做的一个链表操作的演示程序

object Form1: TForm1
  Left = 218
  Top = 139
  Width = 566
  Height = 288
  Caption = #38142#34920#22522#26412#25805#20316
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 16
    Top = 24
    Width = 57
    Height = 49
  end
  object Label1: TLabel
    Left = 32
    Top = 40
    Width = 25
    Height = 17
    AutoSize = False
    Caption = 'First'
    Color = clTeal
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object d1: TLabel
    Left = 80
    Top = 40
    Width = 49
    Height = 17
    AutoSize = False
    Color = 33023
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object n1: TLabel
    Left = 128
    Top = 40
    Width = 17
    Height = 17
    AutoSize = False
    Color = clHighlight
    ParentColor = False
    Visible = False
  end
  object p1: TLabel
    Left = 55
    Top = 30
    Width = 26
    Height = 33
    AutoSize = False
    Caption = '"'
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Wingdings 3'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object p6: TLabel
    Left = 495
    Top = 30
    Width = 26
    Height = 33
    AutoSize = False
    Caption = '"'
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Wingdings 3'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object p5: TLabel
    Left = 407
    Top = 30
    Width = 26
    Height = 33
    AutoSize = False
    Caption = '"'
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Wingdings 3'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object p4: TLabel
    Left = 319
    Top = 30
    Width = 26
    Height = 33
    AutoSize = False
    Caption = '"'
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Wingdings 3'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object p3: TLabel
    Left = 231
    Top = 30
    Width = 26
    Height = 33
    AutoSize = False
    Caption = '"'
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Wingdings 3'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object p2: TLabel
    Left = 143
    Top = 30
    Width = 26
    Height = 33
    AutoSize = False
    Caption = '"'
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Wingdings 3'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object d2: TLabel
    Left = 168
    Top = 40
    Width = 49
    Height = 17
    AutoSize = False
    Color = 33023
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object d3: TLabel
    Left = 256
    Top = 40
    Width = 49
    Height = 17
    AutoSize = False
    Color = 33023
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object d4: TLabel
    Left = 344
    Top = 40
    Width = 49
    Height = 17
    AutoSize = False
    Color = 33023
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object d5: TLabel
    Left = 432
    Top = 40
    Width = 49
    Height = 17
    AutoSize = False
    Color = 33023
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object n5: TLabel
    Left = 480
    Top = 40
    Width = 17
    Height = 17
    AutoSize = False
    Color = clHighlight
    ParentColor = False
    Visible = False
  end
  object n4: TLabel
    Left = 392
    Top = 40
    Width = 17
    Height = 17
    AutoSize = False
    Color = clHighlight
    ParentColor = False
    Visible = False
  end
  object n2: TLabel
    Left = 216
    Top = 40
    Width = 17
    Height = 17
    AutoSize = False
    Color = clHighlight
    ParentColor = False
    Visible = False
  end
  object n3: TLabel
    Left = 304
    Top = 40
    Width = 17
    Height = 17
    AutoSize = False
    Color = clHighlight
    ParentColor = False
    Visible = False
  end
  object p7: TLabel
    Left = 495
    Top = 30
    Width = 26
    Height = 33
    AutoSize = False
    Caption = '4'
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Wingdings 3'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object sp: TShape
    Left = 208
    Top = 80
    Width = 169
    Height = 49
    Brush.Color = clOlive
    Shape = stEllipse
    Visible = False
  end
  object spd: TLabel
    Left = 288
    Top = 96
    Width = 49
    Height = 17
    AutoSize = False
    Color = 33023
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object spn: TLabel
    Left = 336
    Top = 96
    Width = 17
    Height = 17
    AutoSize = False
    Color = clHighlight
    ParentColor = False
    Visible = False
  end
  object spl: TLabel
    Left = 232
    Top = 94
    Width = 49
    Height = 25
    AutoSize = False
    Caption = 'delete'
    Color = clOlive
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object lout: TLabel
    Left = 186
    Top = 162
    Width = 194
    Height = 25
    AutoSize = False
    Caption = #25968#25454#36755#20837#21518#36873#25321#21491#36793#30456#24212#25805#20316
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 10
    Top = 93
    Width = 73
    Height = 19
    AutoSize = False
    Caption = #25968#25454#21015#34920
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object end: TButton
    Left = 472
    Top = 218
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 0
    OnClick = endClick
  end
  object serh: TButton
    Left = 384
    Top = 218
    Width = 75
    Height = 25
    Caption = #26597#25214'(&F)'
    TabOrder = 1
    OnClick = serhClick
  end
  object ein: TEdit
    Left = 186
    Top = 194
    Width = 172
    Height = 21
    ImeName = #12356#12421' ('#32649#30768') - '#31325#29460#57646
    TabOrder = 2
    OnKeyPress = einKeyPress
  end
  object add: TButton
    Left = 384
    Top = 186
    Width = 75
    Height = 25
    Caption = #21152#20837'(&A)'
    Default = True
    TabOrder = 3
    OnClick = addClick
  end
  object del: TButton
    Left = 384
    Top = 154
    Width = 75
    Height = 27
    Caption = #21024#38500'(&D)'
    TabOrder = 4
    OnClick = delClick
  end
  object dsp: TButton
    Left = 472
    Top = 154
    Width = 75
    Height = 25
    Caption = #21047#26032'(&R)'
    TabOrder = 5
    OnClick = dspClick
  end
  object sg: TStringGrid
    Left = 8
    Top = 116
    Width = 169
    Height = 125
    ColCount = 2
    RowCount = 1
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    RowHeights = (
      24)
  end
  object cle: TButton
    Left = 472
    Top = 186
    Width = 75
    Height = 25
    Caption = #28165#38500'(&C)'
    TabOrder = 7
    OnClick = cleClick
  end
  object GroupBox1: TGroupBox
    Left = 408
    Top = 81
    Width = 115
    Height = 59
    Caption = #22836#33410#28857
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    object RadioButton1: TRadioButton
      Left = 10
      Top = 14
      Width = 91
      Height = 17
      Caption = #24102#22836#33410#28857
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 10
      Top = 34
      Width = 97
      Height = 17
      Caption = #19981#24102#22836#33410#28857
      TabOrder = 1
      OnClick = RadioButton2Click
    end
  end
end