TMlSkinNCImage
标题栏上的图片,常用来放程序图标或 Logo。
用法要点
Picture填图片资源 ID 或图片文件路径。- 只显示图片不响应点击时,把
CaptureMouse关掉,鼠标事件会穿透给标题栏(可以拖动窗体)。
示例
摘自 Demo:MlSkin.Demo.360云盘.v3.0(窗体文件 .dfm)
object mlskncmg1: TMlSkinNCImage
Pos.Align = caLeft
Pos.XValue = 14
Pos.YValue = 14
Pos.UseDefault = False
Picture = '.\Res\t011b73265384c4cc02.png'
Left = 401
Top = 112
end
属性 2
| 名称 | 类型 | 默认值 | 说明 |
|---|---|---|---|
Picture | TMlResID | — | 要显示的图片,填图片资源 ID 或图片文件路径。 |
CaptureMouse | Boolean | True | 是否接收鼠标事件。纯装饰的图标建议关掉,让鼠标穿透到标题栏。 |
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 属性同样可用,用法与原生控件一致。