TMlSkinHint

气泡提示组件,接管整个程序的 Hint 显示,把系统默认的黄色提示框换成皮肤样式。

分类
标签与提示
所在单元
uMlSkinHint.pas
继承自
TComponent

用法要点

  • 窗体上放一个即可,之后各控件的 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

名称类型默认值说明
AutoPositionBooleanTrue是否自动调整弹出方向。打开后靠近屏幕边缘时会自动翻到另一侧,避免被截断。
HintDirectionTHintDirectionhdDown气泡相对鼠标的方向:下、上、左、右。
HintColorTColor$00E2F7FC气泡的底色。
FrameColorTColor$0056D2F0气泡的边框颜色。
HintFontTFont气泡文字的字体。
HintPauseTimeInteger600鼠标停留多久后弹出提示(毫秒)。
HintHidePauseTimeInteger2000提示显示多久后自动隐藏(毫秒)。
EnabledBooleanTrue是否接管程序的提示显示。关掉后恢复系统默认提示。

事件 2

名称类型默认值说明
OnCustomHintTOnCustomHint自绘提示内容时使用,可以完全接管气泡的绘制。
OnSelectHintDirectionTOnSelectHintDirection弹出前触发,可在这里决定这一次提示往哪个方向弹。

本页只列出 MlSkin 新增的属性和事件;Align、Anchors、Font、OnClick 等标准 VCL 属性同样可用,用法与原生控件一致。

离线帮助文档需要离线查阅时,可下载 PDF / CHM 版帮助文档。