object Form3: TForm3
Left = 402
Top = 208
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = '设置热键'
ClientHeight = 244
ClientWidth = 225
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object sSpeedButton1: TsSpeedButton
Left = 56
Top = 210
Width = 89
Height = 22
Cursor = crCross
Caption = '保存'
OnClick = sSpeedButton1Click
SkinData.SkinSection = 'SPEEDBUTTON'
end
object sSpeedButton2: TsSpeedButton
Left = 152
Top = 210
Width = 65
Height = 22
Cursor = crCross
Caption = '取消'
OnClick = sSpeedButton2Click
SkinData.SkinSection = 'SPEEDBUTTON'
end
object sGroupBox1: TsGroupBox
Left = 8
Top = 4
Width = 209
Height = 197
Caption = '热键设置'
TabOrder = 0
SkinData.SkinSection = 'GROUPBOX'
object sLabel1: TsLabel
Left = 16
Top = 24
Width = 49
Height = 13
AutoSize = False
Caption = '全瘋狂:'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 5391682
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object sLabel2: TsLabel
Left = 16
Top = 48
Width = 49
Height = 13
AutoSize = False
Caption = '全節奏:'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 5391682
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object sLabel3: TsLabel
Left = 16
Top = 72
Width = 49
Height = 13
AutoSize = False
Caption = '全鬥魂:'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 5391682
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object sLabel4: TsLabel
Left = 16
Top = 168
Width = 65
Height = 13
AutoSize = False
Caption = '無視方向:'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 5391682
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object sLabel5: TsLabel
Left = 16
Top = 144
Width = 65
Height = 13
AutoSize = False
Caption = '自動按鍵:'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 5391682
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object sLabel6: TsLabel
Left = 16
Top = 120
Width = 65
Height = 13
AutoSize = False
Caption = '強開反鍵:'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 5391682
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object sLabel7: TsLabel
Left = 16
Top = 96
Width = 49
Height = 13
AutoSize = False
Caption = '全鬥氣:'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 5391682
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object HotKey1: THotKey
Left = 88
Top = 24
Width = 105
Height = 19
HotKey = 32820
TabOrder = 0
end
object HotKey2: THotKey
Left = 88
Top = 48
Width = 105
Height = 19
HotKey = 32821
TabOrder = 1
end
object HotKey3: THotKey
Left = 88
Top = 72
Width = 105
Height = 19
HotKey = 32822
TabOrder = 2
end
object HotKey7: THotKey
Left = 88
Top = 168
Width = 105
Height = 19
HotKey = 32819
TabOrder = 3
end
object HotKey6: THotKey
Left = 88
Top = 144
Width = 105
Height = 19
HotKey = 32817
TabOrder = 4
end
object HotKey5: THotKey
Left = 88
Top = 120
Width = 105
Height = 19
HotKey = 32818
TabOrder = 5
end
object HotKey4: THotKey
Left = 88
Top = 96
Width = 105
Height = 19
HotKey = 32823
TabOrder = 6
end
end
end
以上均为代码的一部分.希望有能力的人能借助代码做出更好的辅助.此代码曾被某人用过.
