如何创建气泡型提示框？（转贴）

如何创建气泡型提示框？

问题描述：

如何创建气泡型提示框？

解决方案：

if hWndTT<=0 then

if  TIPSTYLE = STYLE_BALLOONTIP then

hWndTT = CreateWindowExA(WS_EX_TOPMOST,TOOLTIPS_CLASS,0, TTF_CENTERTIP+ TTS_BALLOON, &

         CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,  &

         0, 0, Handle(GetApplication()),0)

else

HWndTT = CreateWindowExA(WS_EX_TOPMOST, TOOLTIPS_CLASS,0,TTF_CENTERTIP, &

CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,  &

0, 0, Handle(GetApplication()),0)

end if

end if

 

TOOLINFO ToolInfo

 

ToolInfo.cbSize = 40

ToolInfo.uFlags = Flags

ToolInfo.hWnd = Handle(Object)

ToolInfo.hInstance = 0

ToolInfo.uID = ToolID

ToolID++

ToolInfo.lpszText = tiptext

 

ToolInfo.Rect.Left= 0

ToolInfo.Rect.Top = 0

ToolInfo.Rect.Right= UnitsToPixels(Object.Width,XUnitsToPixels!)

ToolInfo.Rect.Bottom = UnitsToPixels(Object.Height,YUnitsToPixels!)

 

If ToolTipMsg(hWndTT,TTM_ADDTOOL, 0, ToolInfo) = 0 Then

Return(-1)

End If

 

Return(ToolID - 1)

 

源码详见：

 

《浮动按钮、按钮的PowerTip提示的具体实现》

http://www.siwei.cn/lzg/PB/ztwz/gn64.htm

 

《给图形按钮加上提示信息》

http://www.pbsite.com/list.asp?id=56