web_main.dfm

实现排序

object Form1: TForm1
  Left = 221
  Top = 130
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #21495#30721#24037#20855
  ClientHeight = 363
  ClientWidth = 633
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 344
    Width = 633
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Memo1: TMemo
    Left = 8
    Top = 80
    Width = 113
    Height = 89
    Ctl3D = False
    Lines.Strings = (
      #23631#34109#30340#31532#19968#20010#21495
      #30721)
    ParentCtl3D = False
    ParentShowHint = False
    ReadOnly = True
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 1
    OnChange = Memo1Change
  end
  object Memo2: TMemo
    Left = 8
    Top = 176
    Width = 113
    Height = 161
    Ctl3D = False
    Lines.Strings = (
      #23631#34109#30340#21495#27573)
    ParentCtl3D = False
    ParentShowHint = False
    ReadOnly = True
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 2
    OnChange = Memo2Change
  end
  object Memo3: TMemo
    Left = 8
    Top = 8
    Width = 617
    Height = 65
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      #32676#21457#20869#23481)
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 3
    OnChange = Memo3Change
    OnClick = Memo3Click
  end
  object Memo4: TMemo
    Left = 496
    Top = 80
    Width = 129
    Height = 201
    Ctl3D = False
    Lines.Strings = (
      #27979#35797#21495#30721#21015#34920)
    ParentCtl3D = False
    ScrollBars = ssVertical
    TabOrder = 4
  end
  object Button1: TButton
    Left = 501
    Top = 288
    Width = 104
    Height = 25
    Caption = #28040#38500#37325#22797#21495#30721'   '
    TabOrder = 5
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 136
    Top = 80
    Width = 73
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 6
    Text = '3'
    OnChange = Edit1Change
  end
  object Button2: TButton
    Left = 136
    Top = 104
    Width = 73
    Height = 25
    Caption = #21076#38500#21495#30721'  '
    TabOrder = 7
    OnClick = Button2Click
  end
  object Button4: TButton
    Left = 500
    Top = 318
    Width = 105
    Height = 25
    Caption = #36827#19968#27493#31579#36873
    TabOrder = 8
    OnClick = Button4Click
  end
  object Button3: TButton
    Left = 128
    Top = 232
    Width = 49
    Height = 25
    Caption = #26367'  '#25442
    TabOrder = 9
    OnClick = Button3Click
  end
  object Button5: TButton
    Left = 192
    Top = 232
    Width = 49
    Height = 25
    Caption = #36824'  '#21407
    TabOrder = 10
    OnClick = Button5Click
  end
  object Memo6: TMemo
    Left = 128
    Top = 264
    Width = 361
    Height = 73
    Ctl3D = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      'Memo6')
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 11
    OnClick = Memo6Click
  end
  object Memo5: TMemo
    Left = 128
    Top = 144
    Width = 361
    Height = 81
    Ctl3D = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      'Memo5')
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 12
    OnChange = Memo5Change
  end
  object Button6: TButton
    Left = 384
    Top = 232
    Width = 97
    Height = 25
    Caption = #23548#20986#26367#25442#21495#30721'  '
    TabOrder = 13
    OnClick = Button6Click
  end
  object Edit2: TEdit
    Left = 336
    Top = 232
    Width = 41
    Height = 21
    TabOrder = 14
    Text = '300'
  end
  object CheckBox1: TCheckBox
    Left = 248
    Top = 234
    Width = 89
    Height = 17
    Caption = #33258#21160#21629#21517'   '
    TabOrder = 15
  end
  object Memo7: TMemo
    Left = 224
    Top = 80
    Width = 153
    Height = 57
    Ctl3D = False
    Lines.Strings = (
      'Memo7')
    ParentCtl3D = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 16
    OnChange = Memo7Change
    OnClick = Memo7Click
  end
  object Button7: TButton
    Left = 384
    Top = 104
    Width = 105
    Height = 25
    Caption = #25554#20837#27979#35797#21495#30721'  '
    TabOrder = 17
    OnClick = Button7Click
  end
  object Edit3: TEdit
    Left = 392
    Top = 80
    Width = 97
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 18
    Text = '5000'
    OnChange = Edit3Change
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.txt'
    Filter = '*.txt|*.txt|*.*|*.*'
    Top = 336
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.txt'
    Filter = '*.txt|*.txt'
    Left = 40
    Top = 336
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 88
    Top = 336
    object N1: TMenuItem
      Caption = #21495#30721#31649#29702
      object N8: TMenuItem
        Caption = #23548#20837#21495#30721
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #22686#21152#21495#30721
        OnClick = N9Click
      end
      object q1: TMenuItem
        Caption = #28165#31354#21495#30721
        OnClick = q1Click
      end
    end
    object N2: TMenuItem
      Caption = #21495#30721#25490#24207
      OnClick = N2Click
    end
    object N11: TMenuItem
      Caption = #27979#35797#21495#30721
      object N12: TMenuItem
        Caption = #26597#25214#21495#30721
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = #20445#23384#21495#30721
        OnClick = N13Click
      end
      object N11111: TMenuItem
        Caption = #26597#25214#21333#19968#21495#30721
        Visible = False
        OnClick = N11111Click
      end
    end
    object N3: TMenuItem
      Caption = #28040#38500#37325#21495
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #25552#21462#21495#27573
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #23545#27604#21495#27573
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #21076#38500#21495#27573
      OnClick = N6Click
    end
    object N7: TMenuItem
      Caption = #23548#20986#21495#30721
      OnClick = N7Click
    end
    object N10: TMenuItem
      Caption = #21495#30721#20081#24207
      OnClick = N10Click
    end
  end
  object Timer1: TTimer
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 136
    Top = 328
  end
end