TAdvSmoothButton右下角可以显示文字 TAdvGlassButton漂亮按钮

object btn24: TAdvGlassButton
  Left = 625
  Top = 120
  Width = 136
  Height = 32
  Cursor = crHandPoint
  ParentCustomHint = False
  BackColor = clWhite
  BackGroundSymbolColor = clBtnFace
  ButtonDirection = bdLeft
  Caption = #26242#20572#20498#35745#26102
  CornerRadius = 5
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = #24494#36719#38597#40657
  Font.Style = []
  Font.Quality = fqClearType
  ForeColor = clWhite
  ForceTransparent = True
  GlowColor = clWhite
  InnerBorderColor = 15248158
  Layout = blGlyphRight
  OuterBorderColor = clWhite
  ParentFont = False
  ParentShowHint = False
  ParentBiDiMode = False
  ShineColor = clWhite
  ShowHint = False
  Style = tasCheck
  TabOrder = 19
  Version = '1.2.3.1'
  OnMouseEnter = btn9MouseEnter
  OnMouseLeave = btn9MouseLeave
end


object btnClose: TAdvSmoothButton
  Left = 294
  Top = 468
  Width = 85
  Height = 38
  ParentCustomHint = False
  Appearance.Layout = blNone
  Appearance.Rounding = 5
  Status.Visible = True
  Status.Caption = '10'
  Status.OffsetLeft = -2
  Status.Appearance.Fill.Color = 748789
  Status.Appearance.Fill.ColorTo = clTeal
  Status.Appearance.Fill.ColorMirror = clNone
  Status.Appearance.Fill.ColorMirrorTo = clNone
  Status.Appearance.Fill.GradientType = gtSolid
  Status.Appearance.Fill.GradientMirrorType = gtSolid
  Status.Appearance.Fill.BorderColor = clGray
  Status.Appearance.Fill.Rounding = 8
  Status.Appearance.Fill.ShadowColor = clWhite
  Status.Appearance.Fill.ShadowOffset = 0
  Status.Appearance.Fill.Glow = gmNone
  Status.Appearance.Font.Charset = DEFAULT_CHARSET
  Status.Appearance.Font.Color = clWhite
  Status.Appearance.Font.Height = -11
  Status.Appearance.Font.Name = 'Tahoma'
  Status.Appearance.Font.Style = []
  Status.Appearance.Glow = False
  BevelColor = 15248158
  Caption = 'btn10'
  Color = clWhite
  OfficeHint.Title = 'fdsaf'
  OfficeHint.Notes.Strings = (
    '1231'
    'fdaf'
    'fewf')
  ParentShowHint = False
  DisabledColor = clWhite
  ShowHint = False
  TabOrder = 0
  ShowFocus = False
  HorizontalSpacing = 1
  Version = '1.8.1.0'
  OnClick = btnCloseClick
end