unit1.~dfm

一个简单的屏幕时钟代码

object Form1: TForm1
  Left = 457
  Top = 0
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 18
  ClientWidth = 104
  Color = clBtnFace
  TransparentColor = True
  DefaultMonitor = dmPrimary
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 104
    Height = 18
    Align = alClient
    Alignment = taCenter
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    OnMouseDown = Label1MouseDown
    OnMouseMove = Label1MouseMove
    OnMouseUp = Label1MouseUp
  end
  object PopupMenu1: TPopupMenu
    Left = 48
    Top = 8
    object Font1: TMenuItem
      Caption = 'Font'
      OnClick = Font1Click
    end
    object Color1: TMenuItem
      Caption = 'Color'
      OnClick = Color1Click
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      OnClick = Exit1Click
    end
  end
  object Timer1: TTimer
    Interval = 500
    OnTimer = Timer1Timer
    Left = 80
    Top = 8
  end
  object ColorDialog1: TColorDialog
    Left = 112
    Top = 8
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 16
    Top = 8
  end
end