main.dfm

用Delphi6写的演示在程序中如何设定富于个性的热键,例如F+J.

object FrmMain: TFrmMain
  Left = 267
  Top = 173
  BorderStyle = bsDialog
  Caption = #20010#24615#28909#38190#31034#33539
  ClientHeight = 88
  ClientWidth = 274
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 11
  object Lbl1: TLabel
    Left = 0
    Top = 0
    Width = 274
    Height = 11
    Align = alTop
    Alignment = taCenter
    Caption = #27809#26377#25353#36807#28909#38190
  end
  object BtnHot1: TButton
    Left = 8
    Top = 24
    Width = 257
    Height = 25
    Caption = #31532#19968#31181#28909#38190': f+F11'
    TabOrder = 0
    OnClick = BtnHot1Click
  end
  object BtnHot2: TButton
    Left = 8
    Top = 56
    Width = 257
    Height = 25
    Caption = #31532#20108#31181#25353#38190': f+j'
    TabOrder = 1
    OnClick = BtnHot2Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 120
  end
end