用法要点
- 普通状态用
Font,鼠标移上去换成 FontHot,通常配合下划线和变色做出链接效果。
示例
摘自 Demo:MlSkin.Demo.360云盘.v3.0(窗体文件 .dfm)
object btn1: TMlURLButton
Left = 10
Top = 556
Width = 166
Height = 14
Cursor = crHandPoint
AutoInvalidate = True
Alpha = 0
Anchors = [akLeft, akRight]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
FontHot.Charset = DEFAULT_CHARSET
FontHot.Color = 16365879
FontHot.Height = -12
FontHot.Name = 'Tahoma'
FontHot.Style = []
属性 1
| 名称 | 类型 | 默认值 | 说明 |
|---|
FontHot | TFont | — | 鼠标移上去时使用的字体。 |
TMlSkinLabel 的属性 10
| 名称 | 类型 | 默认值 | 说明 |
|---|
Alpha | Byte | 192 | 透明度,0 为完全透明、255 为不透明。 |
EllipsisPosition | TEllipsisPosition | epNone | 文字太长时省略号的位置:epEndEllipsis 末尾、epPathEllipsis 中间(适合路径)、epWordEllipsis 按词、epNone 不省略。 |
AlignmentHorizontal | TAlignment | taLeftJustify | 文字的水平对齐方式:左对齐、居中或右对齐。 |
AlignmentVertical | TVerticalAlignment | taAlignTop | 文字的垂直对齐方式:顶端、居中或底端。 |
AutoSize | Boolean | True | 是否按内容自动调整控件大小。 |
RoundBackground | Boolean | False | 底色是否画成圆角。配合 Color 可以做出标签(Tag)样式的文字块。 |
RoundSize | Integer | 5 | 圆角半径(像素),0 为直角。 |
Light | TMlLightClass | — | 发光效果:可设开关、发光颜色和模糊半径。 |
WordWap | Boolean | False | 文字过长时是否自动换行。 |
Color | TColor | clWhite | 控件的底色。Transparent 打开时不生效。 |
TMlSkinCustomPanel 的属性 1
| 名称 | 类型 | 默认值 | 说明 |
|---|
Color | TColor | clWhite | 控件的底色。Transparent 打开时不生效。 |
TMlSkinCustomPanel 的事件 1
| 名称 | 类型 | 默认值 | 说明 |
|---|
OnCustomDraw | TMlCustomDrawEvent | — | 自绘事件,可在控件画完后继续绘制自己的内容。 |
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 属性同样可用,用法与原生控件一致。