unit1.~dfm

delphi写的可以隐藏界面的程序。请大家指教。

object Form1: TForm1
  Left = 240
  Top = 273
  Width = 599
  Height = 85
  BorderIcons = [biSystemMenu, biMinimize]
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCanResize = FormCanResize
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object pnl1: TPanel
    Left = 0
    Top = 0
    Width = 591
    Height = 51
    Align = alClient
    TabOrder = 0
    object btn1: TBitBtn
      Left = 0
      Top = 0
      Width = 50
      Height = 50
      Caption = 'PB'
      TabOrder = 0
      OnClick = btn1Click
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777770000000000000077777777770000000FFFFFF077777777770000000FFFF
        FF077777777770000000FFFFFF07777777777000000000000007777777777000
        0000777777774770000070000000777777744770EFEF70000000777777444440
        FEFE70000000777777744770EFEF700000007777777747700000700000000000
        00077777777770000000FFFFFF077777777770000000FFFFFF07777777777000
        0000FFFFFF077777777770000000000000077777777770000000777777777777
        777770000000}
    end
    object btn2: TBitBtn
      Left = 50
      Top = 1
      Width = 50
      Height = 50
      Caption = 'SQL'
      TabOrder = 1
      OnClick = btn2Click
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007777777777777777700000007000000007777777700000007FFF
        FFFF07777777700000007FFFFFFF07777777700000007FFFFFFF077777777000
        00007000000000007747700000007EFEFEFEFEF07744700000007FEFEFEFEFE0
        4444400000007EFEFEFEFEF07744700000007000000000007747700000007FFF
        FFFF07777777700000007FFFFFFF07777777700000007FFFFFFF077777777000
        0000700000000777777770000000777777777777777770000000777777777777
        777770000000}
    end
    object btn3: TBitBtn
      Left = 100
      Top = 1
      Width = 50
      Height = 50
      TabOrder = 2
      OnClick = btn2Click
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007777777777777777700000007000000007777777700000007FFF
        FFFF07777777700000007FFFFFFF07777777700000007FFFFFFF077777777000
        00007000000000007747700000007EFEFEFEFEF07744700000007FEFEFEFEFE0
        4444400000007EFEFEFEFEF07744700000007000000000007747700000007FFF
        FFFF07777777700000007FFFFFFF07777777700000007FFFFFFF077777777000
        0000700000000777777770000000777777777777777770000000777777777777
        777770000000}
    end
  end
  object tmr1: TTimer
    Interval = 50
    OnTimer = tmr1Timer
    Left = 392
    Top = 8
  end
  object tmr2: TTimer
    Interval = 50
    OnTimer = tmr2Timer
    Left = 440
    Top = 8
  end
end