uselkeyform.dfm

搞笑俄罗斯方块这个程序由delphi制作而成。

object SelectKeyForm: TSelectKeyForm
  Left = 248
  Top = 138
  BorderStyle = bsDialog
  Caption = '键盘设定'
  ClientHeight = 228
  ClientWidth = 312
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox: TGroupBox
    Left = 7
    Top = 4
    Width = 298
    Height = 186
    Caption = '键盘设定'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object LabelDown: TLabel
      Left = 23
      Top = 25
      Width = 48
      Height = 12
      Caption = '方块下降'
    end
    object LabelLeft: TLabel
      Left = 23
      Top = 57
      Width = 48
      Height = 12
      Caption = '向左移动'
    end
    object LabelRight: TLabel
      Left = 23
      Top = 89
      Width = 48
      Height = 12
      Caption = '向右移动'
    end
    object LabelChange: TLabel
      Left = 23
      Top = 121
      Width = 48
      Height = 12
      Caption = '旋转方块'
    end
    object LabelSpeed: TLabel
      Left = 23
      Top = 153
      Width = 48
      Height = 12
      Caption = '快速下降'
    end
    object EditDown: TEdit
      Left = 88
      Top = 20
      Width = 190
      Height = 20
      AutoSelect = False
      ReadOnly = True
      TabOrder = 0
      Text = 'EditDown'
      OnKeyDown = EditDownKeyDown
    end
    object EditLeft: TEdit
      Left = 88
      Top = 52
      Width = 190
      Height = 20
      AutoSelect = False
      ReadOnly = True
      TabOrder = 1
      Text = 'EditLeft'
      OnKeyDown = EditLeftKeyDown
    end
    object EditRight: TEdit
      Left = 88
      Top = 84
      Width = 190
      Height = 20
      AutoSelect = False
      ReadOnly = True
      TabOrder = 2
      Text = 'EditRight'
      OnKeyDown = EditRightKeyDown
    end
    object EditChange: TEdit
      Left = 88
      Top = 116
      Width = 190
      Height = 20
      AutoSelect = False
      ReadOnly = True
      TabOrder = 3
      Text = 'EditChange'
      OnKeyDown = EditChangeKeyDown
    end
    object EditSpeed: TEdit
      Left = 88
      Top = 148
      Width = 190
      Height = 20
      AutoSelect = False
      ReadOnly = True
      TabOrder = 4
      Text = 'EditSpeed'
      OnKeyDown = EditSpeedKeyDown
    end
  end
  object ButtonOk: TButton
    Left = 142
    Top = 197
    Width = 75
    Height = 25
    Caption = '确定'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 230
    Top = 197
    Width = 75
    Height = 25
    Caption = '取消'
    ModalResult = 2
    TabOrder = 2
  end
end