TMlSkinButton

用法要点

• 文字用 Caption，字体除了普通状态还可以单独设置悬停字体 HotFont。
• Default、Cancel、ModalResult 与标准按钮一致，可直接用在对话框里。
• Pictures 换一张按钮图就能改变整体风格；Layers 可以在按钮上叠图标。

示例

摘自 Demo：MlSkin.Demo.360安全卫士.v3.1（窗体文件 .dfm）

object btnColorReset: TMlSkinButton
  Left = 258
  Top = 9
  Width = 69
  Height = 24
  AutoInvalidate = True
  Down = False
  HotFont.Charset = DEFAULT_CHARSET
  HotFont.Color = clWindowText
  HotFont.Height = -12
  HotFont.Name = 'Tahoma'
  HotFont.Style = []
  DropdownMenuOffset.X = -4
  DropdownMenuOffset.Y = -4
  Action = actColorReset
  DoubleBuffered = False
  TabOrder = 0
  TabStop = True
  Pictures.Active = True
  Pictures.Image = '.\Res\btn1.png'

属性 6

名称	类型	默认值	说明
DropdownMenu	TPopupMenu	—	关联的弹出菜单。设置后按钮旁出现下拉箭头，点击即可弹出菜单。
Pictures	TPngPictures	—	控件使用的图片，按状态分帧（未选中、选中、悬停、禁用等）。
CaptionVisible	Boolean	—	是否显示文字。做纯图标按钮时关掉。
LayerMode	Boolean	False	是否启用图层模式。打开后才会绘制 Layers 指定的图层。
Layers	TPngPictures	—	叠加在按钮上的图层图片（通常是图标），和按钮底图分开管理，换图标不用重做整张按钮图。
LayersOffset	TMlBtnItemOffset	—	图层相对按钮的偏移量（X、Y）。

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 属性同样可用，用法与原生控件一致。