settings.dfm

可以得到鼠标的确切位置

object SettingsForm: TSettingsForm
  Left = 0
  Top = 0
  AlphaBlendValue = 128
  BorderStyle = bsDialog
  Caption = 'xMouse Settings'
  ClientHeight = 252
  ClientWidth = 154
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object colorBox: TColorListBox
    Left = 8
    Top = 8
    Width = 137
    Height = 177
    Style = [cbStandardColors, cbExtendedColors, cbPrettyNames, cbCustomColors]
    ItemHeight = 16
    TabOrder = 0
  end
  object btnOk: TBitBtn
    Left = 29
    Top = 203
    Width = 97
    Height = 33
    TabOrder = 1
    Kind = bkOK
  end
end