main.~dfm

这是个delphi编写的小闹钟！大家用用看看 应该瞒好用的吧

object frmMain: TfrmMain
  Left = 314
  Top = 322
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'frmMain'
  ClientHeight = 203
  ClientWidth = 544
  Color = clBtnFace
  Font.Charset = GREEK_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object gbAlarms: TGroupBox
    Left = 8
    Top = 8
    Width = 257
    Height = 137
    Caption = 'Alarms'
    TabOrder = 0
    object lbAlarms: TListBox
      Left = 8
      Top = 16
      Width = 241
      Height = 113
      Cursor = crHandPoint
      Style = lbOwnerDrawFixed
      Color = clSkyBlue
      Font.Charset = GREEK_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnClick = lbAlarmsClick
      OnDblClick = lbAlarmsDblClick
      OnDrawItem = lbAlarmsDrawItem
    end
  end
  object gbDetails: TGroupBox
    Left = 272
    Top = 8
    Width = 265
    Height = 137
    Caption = 'Details'
    TabOrder = 1
    object lblTime: TLabel
      Left = 9
      Top = 16
      Width = 31
      Height = 13
      Caption = 'Time:'
      Font.Charset = GREEK_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblMessage: TLabel
      Left = 9
      Top = 56
      Width = 53
      Height = 13
      Caption = 'Message:'
      Font.Charset = GREEK_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object edTime: TEdit
      Left = 8
      Top = 30
      Width = 249
      Height = 21
      Color = clMoneyGreen
      ReadOnly = True
      TabOrder = 0
    end
    object memMessage: TMemo
      Left = 8
      Top = 70
      Width = 249
      Height = 58
      Color = clMoneyGreen
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object gbActions: TGroupBox
    Left = 8
    Top = 146
    Width = 529
    Height = 49
    Caption = 'Actions'
    TabOrder = 2
    object btnAlarm: TSpeedButton
      Left = 476
      Top = 10
      Width = 49
      Height = 35
      Cursor = crHandPoint
      Hint = 'Enable/Disable Alarm'
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'Alarm'
      Flat = True
      Font.Charset = GREEK_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      Glyph.Data = {
        36050000424D3605000000000000360400002800000010000000100000000100
        0800000000000001000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A6000020400000206000002080000020A0000020C0000020E000004000000040
        20000040400000406000004080000040A0000040C0000040E000006000000060
        20000060400000606000006080000060A0000060C0000060E000008000000080
        20000080400000806000008080000080A0000080C0000080E00000A0000000A0
        200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
        200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
        200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
        20004000400040006000400080004000A0004000C0004000E000402000004020
        20004020400040206000402080004020A0004020C0004020E000404000004040
        20004040400040406000404080004040A0004040C0004040E000406000004060
        20004060400040606000406080004060A0004060C0004060E000408000004080
        20004080400040806000408080004080A0004080C0004080E00040A0000040A0
        200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
        200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
        200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
        20008000400080006000800080008000A0008000C0008000E000802000008020
        20008020400080206000802080008020A0008020C0008020E000804000008040
        20008040400080406000804080008040A0008040C0008040E000806000008060
        20008060400080606000806080008060A0008060C0008060E000808000008080
        20008080400080806000808080008080A0008080C0008080E00080A0000080A0
        200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
        200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
        200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
        2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
        2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
        2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
        2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
        2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
        2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
        2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFD00
        0000000000FDFDFDFDFDFDFDFD0000AEAE1B1BAEAD0000FDFDFDFDFD00F75B5B
        F7F7AEAE1B1BF700FDFDFD00F707070707F7F7F7AEAEAEF700FDFD002FEFEFEF
        EFEFB7F7F7F7AE1B00FD00EFEF080808080807B7F7F7AEAEAD0000BF08080808
        08080807B7F7F7AEAE0000BF08080808085B490807B7F7AE1B0000BFF6F60808
        AD495252B6EFF7F71B000008F6F608A4490708A400A507F7AE000008F6F6A449
        07080808B6AE07F7AE00FD0008F749070808080808EF075B00FDFD00F7F608F6
        F6F6080808EF07F700FDFDFD00F70808F6F60808EF26F700FDFDFDFDFD000008
        08BFBFBFEF0000FDFDFDFDFDFDFDFD000000000000FDFDFDFDFD}
      Layout = blGlyphTop
      ParentFont = False
      Spacing = 1
      OnClick = btnAlarmClick
    end
    object bvSep1: TBevel
      Left = 296