How to create a bubble type prompt box?
Problem Description:
How to create a bubble type prompt box?
solution:
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)
Source code See:
"Floating button, the specific implementation of PowerTip prompt"
Http://www.siwei.cn/lzg/pb/ztwz/gn64.htm
"Add prompt information to the graphic button"
http://www.pbsite.com/list.asp?id=56
