文件名称：气泡提示代码
文件大小：166KB
文件格式：RAR
更新时间：2018-11-18 07:18:05
气泡提示
unit SherryHint; interface uses Windows, Messages, Classes, Controls, Forms, CommCtrl; type THintWin=class(THintWindow) private FLastActive: THandle; public procedure ActivateHint(Rect:TRect;Const AHint:string);override; // end; implementation procedure AddTipTool(hWnd: DWORD; IconType: Integer; Title, Text: PChar); const TTS_BALLOON =$0040; TTM_SETTITLE=WM_USER + 32; var hWndTip: DWORD; ToolInfo: TToolInfo; begin hWndTip:=CreateWindow(TOOLTIPS_CLASS, nil, WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP, 0, 0, 0, 0, hWnd, 0, HInstance, nil); if (hWndTip<>0) then
【文件预览】：
Sherryhint.pas
Project1.res
Unit1.dfm
Project1.cfg
Project1.dpr
Project1.exe
Project1.dof
Unit1.pas