封装TOOLTIP, 打造不同Delphi自身提供hint的提示信息

最新推荐文章于 2023-10-19 14:37:12 发布

zzj227

最新推荐文章于 2023-10-19 14:37:12 发布

阅读量2.3k

点赞数

文章标签： delphi ttf tts integer user string

本文链接：https://blog.csdn.net/zzj227/article/details/597225

版权

本文介绍了如何在Delphi中封装自定义的TOOLTIP组件，以实现比系统默认提示更丰富的功能，包括添加用户数据、设置提示样式、动态跟踪提示等。通过创建TMyTooltip类，提供了AddTip、UpdateTipText、AddTrackTip等方法，方便开发者在应用中使用。

摘要由CSDN通过智能技术生成

{

封装TOOLTIP, 打造不同Delphi自身提供hint的提示信息

调用方法

myTP := TMyTooltip.Create();

myTp.AddTip(aLabel.handle, 'Hello !');

...

myTp.Free;

2..

...

}

unit SCUtils;

interface
uses Classes, ADODB, Dialogs, Windows, Forms, Messages, CommCtrl, SysUtils;
const
WM_USER                 = $400;
TTN_FIRST               = 0-520;
TTS_ALWAYSTIP           = $01;
TTS_NOPREFIX            = $02;
TTF_IDISHWND            = $01;
TTF_CENTERTIP           = $02;
TTF_RTLREADING          = $04;
TTF_SUBCLASS            = $10;
TTS_NOANIMATE           = $10;
TTS_NOFADE              = $20;
TTS_BALLOON             = $40;
TTF_TRACK               = $00000020;
TTF_ABSOLUTE            = $00000080;
TTF_TRANSPARENT         = $00000100;
TTI_NONE                = $0;
TTI_INFO                = $1;
TTI_WARNING             = $2;
TTI_ERROR               = $3;
TTM_TRACKACTIVATE       = WM_USER + 17;
TTM_TRACKPOSITION       = WM_USER + 18;
TTM_SETTIPBKCOLOR       = WM_USER + 19;
TTM_SETTIPTEXTCOLOR     = WM_USER + 20;
TTM_GETDELAYTIME        = WM_USER + 21;
TTM_GETTIPBKCOLOR       = WM_USER + 22;
TTM_GETTIPTEXTCOLOR     = WM_USER + 23;
TTM_SETMAXTIPWIDTH      = WM_USER + 24;
TTM_GETMAXTI