TMlSkinHint
气泡提示组件,接管整个程序的 Hint 显示,把系统默认的黄色提示框换成皮肤样式。
用法要点
- 窗体上放一个即可,之后各控件的
Hint都会用它来显示。 HintPauseTime是鼠标停留多久才弹出,HintHidePauseTime是显示多久后自动隐藏。HintDirection指定气泡相对鼠标的方向;打开AutoPosition会在靠近屏幕边缘时自动换方向。- 需要完全自己画提示内容时,用
OnCustomHint接管绘制。
示例
摘自 Demo:MlSkin.Demo.MlSkinHint功能演示.v3.0(窗体文件 .dfm)
object MlSkinHint1: TMlSkinHint
HintFont.Charset = DEFAULT_CHARSET
HintFont.Color = 3031386
HintFont.Height = -12
HintFont.Name = 'Tahoma'
HintFont.Style = []
OnCustomHint = MlSkinHint1CustomHint
OnSelectHintDirection = MlSkinHint1SelectHintDirection
Left = 296
Top = 24
end
属性 8
| 名称 | 类型 | 默认值 | 说明 |
|---|---|---|---|
AutoPosition | Boolean | True | 是否自动调整弹出方向。打开后靠近屏幕边缘时会自动翻到另一侧,避免被截断。 |
HintDirection | THintDirection | hdDown | 气泡相对鼠标的方向:下、上、左、右。 |
HintColor | TColor | $00E2F7FC | 气泡的底色。 |
FrameColor | TColor | $0056D2F0 | 气泡的边框颜色。 |
HintFont | TFont | — | 气泡文字的字体。 |
HintPauseTime | Integer | 600 | 鼠标停留多久后弹出提示(毫秒)。 |
HintHidePauseTime | Integer | 2000 | 提示显示多久后自动隐藏(毫秒)。 |
Enabled | Boolean | True | 是否接管程序的提示显示。关掉后恢复系统默认提示。 |
事件 2
| 名称 | 类型 | 默认值 | 说明 |
|---|---|---|---|
OnCustomHint | TOnCustomHint | — | 自绘提示内容时使用,可以完全接管气泡的绘制。 |
OnSelectHintDirection | TOnSelectHintDirection | — | 弹出前触发,可在这里决定这一次提示往哪个方向弹。 |
本页只列出 MlSkin 新增的属性和事件;Align、Anchors、Font、OnClick 等标准 VCL 属性同样可用,用法与原生控件一致。