TMS控件之 TAdvGlassButton 和TAdvSmoothButton控件使用-变色 右上角显示文本

变色：变色，渐变，

btn7: TAdvGlassButton;  btn9: TAdvGlassButton;
procedure TfrmRemind.btn7MouseEnter(Sender: TObject);
begin
  TAdvGlassButton(Sender).InnerBorderColor:= $00E1E100;
end;
procedure TfrmRemind.btn7MouseLeave(Sender: TObject);
begin
  TAdvGlassButton(Sender).InnerBorderColor:=$00E8AB1E;
end;

corner radius 圆角半径；刀尖圆弧半径；拐角半径
SHINE COLOR 颜色光亮,光颜色,实闪色 ；
backcolor 背景色
background symbol 背景标记,背景符号,背景符号
Glow Color ：发光颜色,灯光颜色,辉光颜色 ；
inner border  内图廓

 

窗体跟着鼠标走

procedure TfrmRemind.img2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(self.Handle,WM_SYSCOMMAND,$F012,0);
end;

窗体文件

object btn7: TAdvGlassButton
      Left = 37
      Top = 102
      Width = 100
      Height = 32
      Cursor = crHandPoint
      ParentCustomHint = False
      BackColor = clWhite
      BackGroundSymbolColor = clBtnFace
      ButtonDirection = bdLeft
      Caption = #21462#28040
      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 = 13550169
      Layout = blGlyphRight
      OuterBorderColor = clWhite
      ParentFont = False
      ParentShowHint = False
      ParentBiDiMode = False
      ShineColor = clWhite
      ShowHint = False
      Style = tasCheck
      TabOrder = 0
      Version = '1.2.3.1'
      OnClick = btn7Click
      OnMouseEnter = btn7MouseEnter
      OnMouseLeave = btn7MouseLeave
    end
    object btn9: TAdvGlassButton
      AlignWithMargins = True
      Left = 195
      Top = 102
      Width = 100
      Height = 32
      Cursor = crHandPoint
      ParentCustomHint = False
      BackColor = 15248936
      BackGroundSymbolColor = 13998870
      ButtonDirection = bdLeft
      Caption = #30830#35748#37325#32622
      CornerRadius = 5
      Down = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = #24494#36719#38597#40657
      Font.Style = []
      Font.Quality = fqClearType
      ForeColor = 13998870
      ForceTransparent = True
      GlowColor = 13998870
      GroupIndex = 10
      InnerBorderColor = 13998870
      OuterBorderColor = clWhite
      ParentFont = False
      ParentShowHint = False
      ParentBiDiMode = False
      ShineColor = 13998870
      ShortCutHintPos = shpCenter
      ShowHint = False
      TabOrder = 1
      Version = '1.2.3.1'
      OnClick = btn9Click
      OnMouseEnter = btn7MouseEnter
      OnMouseLeave = btn7MouseLeave
    end

TAdvSmoothButton 窗体文件 右上角显示文本，像未读信息一样

object btn6: TAdvSmoothButton
    Left = 431
    Top = 252
    Width = 120
    Height = 53
    ParentCustomHint = False
    Appearance.Font.Charset = DEFAULT_CHARSET
    Appearance.Font.Color = clWindowText
    Appearance.Font.Height = -11
    Appearance.Font.Name = 'Tahoma'
    Appearance.Font.Style = []
    Status.Visible = True
    Status.Caption = '132'
    Status.OffsetLeft = -5
    Status.Appearance.Fill.Color = clRed
    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.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.Spacing = 5
    Bevel = False
    BevelColor = clTeal
    Caption = 'btn10'
    Color = clGreen
    ParentFont = False
    ParentShowHint = False
    Shadow = True
    ShowHint = False
    TabOrder = 13
    ShowFocus = False
    HorizontalSpacing = 1
    Version = '1.8.1.0'
  end