unit1.dfm

delphi 实现的玻璃效果

object Form1: TForm1
  Left = 187
  Top = 120
  Width = 548
  Height = 235
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pbGlass: TPaintBox
    Left = 104
    Top = 24
    Width = 417
    Height = 65
    OnPaint = pbGlassPaint
  end
  object btnBlue: TBitBtn
    Left = 16
    Top = 24
    Width = 75
    Height = 25
    Caption = 'btnBlue'
    TabOrder = 0
    OnClick = btnBlueClick
  end
  object btnGreen: TBitBtn
    Left = 16
    Top = 64
    Width = 75
    Height = 25
    Caption = 'btnGreen'
    TabOrder = 1
    OnClick = btnGreenClick
  end
  object btnBlack: TBitBtn
    Left = 16
    Top = 104
    Width = 75
    Height = 25
    Caption = 'btnBlack'
    TabOrder = 2
    OnClick = btnBlackClick
  end
end