如何创建气泡型提示框?
问题描述:
如何创建气泡型提示框?
解决方案:
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
《给图形按钮加上提示信息》