TMlSkinNCLabel
标题栏上的文字标签,通常用来显示程序名或窗口标题。
用法要点
Light可以给文字加一圈发光效果,深色标题栏上会更清楚。- 文字过长时按
EllipsisPosition的设定显示省略号,MaxWidth限制最大宽度。
示例
摘自 Demo:MlSkin.Demo.不规则透明窗体.v3.0(窗体文件 .dfm)
object nclbl1: TMlSkinNCLabel
Pos.Align = caLeft
Pos.XValue = 16
Pos.YValue = 16
Pos.UseDefault = False
Light.Active = False
Caption = 'MlSkin - Alpha Form Demo'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
RenderText = True
Left = 192
Top = 121
end
属性 7
| 名称 | 类型 | 默认值 | 说明 |
|---|---|---|---|
Light | TMlLightClass | — | 文字发光效果,展开后可设开关、发光颜色和模糊半径,深色背景上能让文字更清晰。 |
EllipsisPosition | TEllipsisPosition | epNone | 文字太长时省略号的位置:epEndEllipsis 末尾省略、epPathEllipsis 中间省略(适合路径)、epWordEllipsis 按词省略、epNone 不省略。 |
Caption | string | — | 显示的文字。 |
Font | TFont | — | 文字字体。 |
CaptureMouse | Boolean | True | 是否接收鼠标事件。关掉后鼠标可以穿透到标题栏,拖动文字区域也能移动窗体。 |
RenderText | Boolean | False | 是否绘制文字。关掉后只保留控件位置不画文字,可用于临时隐藏。 |
MaxWidth | Integer | 0 | 文字最大宽度(像素),超出后按 EllipsisPosition 显示省略号。 |
TMlSkinNCCtrlBase 的属性 6
| 名称 | 类型 | 默认值 | 说明 |
|---|---|---|---|
About | TMlAboutInfo | — | 设计期属性。在对象检查器里双击会弹出 MlSkin 的关于窗口,显示组件版本信息;运行时没有作用,也不会保存到 dfm。 |
PutSide | TSideKind | skdTop | 控件放在标题栏的哪一边:skdTop 上、skdBottom 下、skdLeft 左、skdRight 右。 |
Tag | Integer | 0 | 自定义整数值,可以用来存放自己的标识,组件本身不使用。 |
Pos | TNCCtrlPos | — | 控件在该边上的位置:对齐方式加上 X、Y 偏移;UseDefault 打开时使用默认排布。 |
Hint | string | — | 鼠标停留时显示的提示文字。 |
Visible | Boolean | True | 是否显示。 |
TMlSkinNCCtrlBase 的事件 5
| 名称 | 类型 | 默认值 | 说明 |
|---|---|---|---|
OnLMouseDown | TNotifyEvent | — | 鼠标左键在控件上按下时触发。 |
OnLMouseUp | TNotifyEvent | — | 鼠标左键在控件上抬起时触发。 |
OnMouseEnter | TNotifyEvent | — | 鼠标移入控件时触发。 |
OnMouseLeave | TNotifyEvent | — | 鼠标移出控件时触发。 |
OnDPIChanged | TMlDPIChangedEvent | — | 屏幕 DPI 改变时触发(例如窗口被拖到另一块不同缩放的显示器上),可在这里重新调整自绘内容。 |
本页只列出 MlSkin 新增的属性和事件;Align、Anchors、Font、OnClick 等标准 VCL 属性同样可用,用法与原生控件一致。