【文件属性】:
文件名称:气泡提示代码
文件大小: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