TMlSkinColorButton

用纯色绘制的按钮，不需要准备图片，改几个颜色属性就能得到扁平风格的按钮。

分类: 按钮与工具栏
所在单元: uMlSkinColorButton.pas
继承自: TMlSkinCustomColorButton → TMlSkinCustomButton → TMlSkinCustomControl

用法要点

三种状态各一个颜色：NormalColor 正常、HotColor 悬停、PressedColor 按下。
圆角按钮打开 RoundFrame，圆角大小用 RoundSize，SmoothRound 让圆角边缘更平滑。
BorderColor 和 BorderSides 控制边框颜色和画哪几条边。
需要图标时用 Image，悬停换图用 HotImage。

示例

摘自 Demo：MlSkin.Demo.360云盘.v3.0（窗体文件 .dfm）

object btn5: TMlSkinColorButton
  Left = 11
  Top = 6
  Width = 79
  Height = 28
  AutoInvalidate = True
  Down = False
  HotFont.Charset = DEFAULT_CHARSET
  HotFont.Color = clWhite
  HotFont.Height = -11
  HotFont.Name = 'Tahoma'
  HotFont.Style = []
  DropdownMenuOffset.X = -4
  DropdownMenuOffset.Y = -4
  Font.Charset = DEFAULT_CHARSET
  Font.Color = 8609875
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentFont = False

属性 15

名称	类型	默认值	说明
`Alpha`	Byte	`255`	按钮的透明度，0 为完全透明、255 为不透明。
`CaptionVisible`	Boolean	—	是否显示文字。做纯图标按钮时关掉。
`CaptionOffset`	TMlBtnItemOffset	—	文字相对控件的偏移量（X、Y），用来微调文字位置。
`DropdownMenu`	TPopupMenu	—	关联的弹出菜单。设置后按钮旁出现下拉箭头，点击即可弹出菜单。
`ImageOffset`	TMlBtnItemOffset	—	图标相对控件的偏移量（X、Y）。
`Image`	TMlResID	—	按钮上的图标。
`HotImage`	TMlResID	—	鼠标移上去时换用的图标。
`NormalColor`	TColor	`$003854FF`	正常状态的按钮颜色。
`PressedColor`	TColor	`$001A1A9D`	按下时的按钮颜色。
`HotColor`	TColor	`$004343E0`	鼠标移上去时的按钮颜色。
`BorderColor`	TColor	`$00DFCBBB`	边框颜色。
`BorderSides`	TSides	—	画哪几条边框（上、下、左、右可任意组合）。
`RoundFrame`	Boolean	`False`	是否画成圆角按钮。
`RoundSize`	Integer	`3`	圆角半径（像素）。
`SmoothRound`	Boolean	`True`	圆角是否抗锯齿。打开后圆角边缘更平滑。

TMlSkinCustomButton 的属性 15

名称	类型	默认值	说明
`About`	TMlAboutInfo	—	设计期属性。在对象检查器里双击会弹出 MlSkin 的关于窗口，显示组件版本信息；运行时没有作用，也不会保存到 dfm。
`AllowAllUp`	Boolean	`False`	同组按钮是否允许全部弹起。关掉后组内必须有一个处于按下状态。
`IgnoreMouse`	Boolean	`False`	忽略鼠标。打开后控件不响应鼠标，事件穿透到下面的控件。
`CycleDownClick`	Boolean	`False`	按住不放时循环触发点击，常用于数值增减按钮；触发的是 `OnCycleDownClick`。
`WordWrap`	Boolean	`False`	文字过长时是否换行显示。
`Down`	Boolean	—	按钮是否处于按下状态，配合 `GroupIndex` 可做成开关或标签页效果。
`HotFont`	TFont	—	鼠标移上去时使用的字体，可换颜色或加下划线做悬停效果。
`GroupIndex`	Integer	`0`	分组编号。编号相同的按钮互斥，同一时间只有一个处于按下状态；0 表示不分组。
`DropdownMenuOffset`	TMlBtnItemOffset	—	下拉菜单弹出位置的偏移量（X、Y）。
`PressedOffset`	Integer	`1`	按下时内容向右下偏移的像素数，用来做按下去的效果，0 表示不偏移。
`CanFocused`	Boolean	`True`	控件是否可以获得焦点。关掉后点击不抢焦点，也不能用 Tab 切换到它。
`Default`	Boolean	`False`	是否为默认按钮。窗体上按回车时相当于点击它。
`Cancel`	Boolean	`False`	是否为取消按钮。窗体上按 Esc 时相当于点击它。
`ModalResult`	TModalResult	`0`	点击后给模态窗体返回的结果值，用法与标准按钮相同。
`ShowFocusFrame`	Boolean	`False`	是否显示焦点虚线框。

TMlSkinCustomButton 的事件 2

名称	类型	默认值	说明
`OnCustomPaint`	TCustomPaintEvent	—	自绘事件。需要完全自己画按钮时，在这里接管绘制。
`OnCycleDownClick`	TNotifyEvent	—	按住不放期间反复触发（需先打开 `CycleDownClick`）。

TMlSkinCustomControl 的属性 5

名称	类型	默认值	说明
`About`	TMlAboutInfo	—	设计期属性。在对象检查器里双击会弹出 MlSkin 的关于窗口，显示组件版本信息；运行时没有作用，也不会保存到 dfm。
`Transparent`	Boolean	`True`	背景是否透明。打开后控件不画自己的底色，直接显示窗体的背景（图片或颜色）。
`Color`	TColor	`clWhite`	控件的底色。`Transparent` 打开时不生效。
`AutoInvalidate`	Boolean	`False`	内容变化时是否自动重绘。动态改属性看不到变化时可以打开。
`EraseBackground`	Boolean	`False`	绘制前是否擦除背景。界面闪烁时可以调整这个开关。

TMlSkinCustomControl 的事件 4

名称	类型	默认值	说明
`OnDPIChanged`	TMlDPIChangedEvent	—	屏幕 DPI 改变时触发（例如窗口被拖到另一块不同缩放的显示器上），可在这里重新调整自绘内容。
`OnBackgroundChanging`	TMlBackgroundEvent	—	背景即将改变时触发，可在这里干预要绘制的背景。
`OnBackgroundChanged`	TMlCustomDrawEvent	—	背景绘制完成后触发，可在背景之上继续自绘内容。
`OnVisibleChanged`	TNotifyEvent	—	控件显示或隐藏时触发。

本页只列出 MlSkin 新增的属性和事件；Align、Anchors、Font、OnClick 等标准 VCL 属性同样可用，用法与原生控件一致。

离线帮助文档需要离线查阅时，可下载 PDF / CHM 版帮助文档。

离线帮助文档返回控件列表