joffa.dfm

小程序 可以任意的拖动 会找到一定的水平线 右击退出即可

object JoffaForm: TJoffaForm
  Left = 257
  Top = 194
  BorderStyle = bsNone
  Caption = 'JoffaForm'
  ClientHeight = 32
  ClientWidth = 104
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  OnMouseDown = ImageMouseDown
  OnMouseUp = ImageMouseUp
  PixelsPerInch = 96
  TextHeight = 13
  object Image: TImage
    Left = 0
    Top = 0
    Width = 104
    Height = 32
    Cursor = crHandPoint
    Align = alClient
    Picture.Data = {
      055449636F6E0000010001002020100000000000E80200001600000028000000
      2000000040000000010004000000000080020000000000000000000000000000
      0000000000000000000080000080000000808000800000008000800080800000
      C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF0000000000000000000000000000000000000000000088777704880000
      0000000000000000008777780884000000000000000000000007700080000000
      0000000000000000000770000000000000000000000000000007708778000000
      0000000000000000870777777778000000000000000000877877777777777800
      0000000000000878777777777777778000000000000087777777777777777778
      0000000000087877877777777778000000000000000877777777777780008777
      8000000000878777777877700877777778000000007777777777080877777777
      7700000008787777777780877777777777800000078777777777780777777777
      7800000008778777777777787777777770877800078777777777777777777777
      7777778008777777777777777777777777777770077777777777777780000877
      77777770078777777777777807FF708777F7F77008777777777777707FFFF708
      777F7F700077777777777770FFF700000877F7800087777777777770FFF00000
      0087780000077777777777707FF7007000000000000877777777F7F807FF7007
      70000000000087777777777780000880000000000000087777F77F7F77777780
      00000000000000877777F7F7F7F78000000000000000000087777F7F77780000
      0000000000000000008777777800000000000000000000000000000000000000
      00000000FFC00FFFFF8007FFFF8007FFFFC00FFFFFC03FFFFF000FFFFC0003FF
      F80001FFF00000FFE000007FC000003FC000003F8000001F8000001F0000000F
      0000000300000001000000000000000000000000000000000000000080000000
      80000001C0000003C000003FE000007FF00000FFF80001FFFC0003FFFF000FFF
      FFC03FFF}
    OnMouseDown = ImageMouseDown
    OnMouseUp = ImageMouseUp
  end
end