社区
Windows SDK/API
帖子详情
Win2K/XP下,有一种叫Ballon tooltip的提示框,使用什么函数作的?
瓦琦儿
2004-07-05 09:12:36
这里有这种提示框的图片
http://www.xyclan.com/ballon.jpg
请给出该函数的具体资料,谢谢,我太懒拉不愿意自己去查。。。
...全文
132
6
打赏
收藏
Win2K/XP下,有一种叫Ballon tooltip的提示框,使用什么函数作的?
这里有这种提示框的图片 http://www.xyclan.com/ballon.jpg 请给出该函数的具体资料,谢谢,我太懒拉不愿意自己去查。。。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
飞天揽月
2004-07-06
打赏
举报
回复
帮你顶
关注
fei19790920
2004-07-06
打赏
举报
回复
提醒一句,WIN98不支持,呵呵
hch_45
2004-07-06
打赏
举报
回复
重画HINT窗口也可以实现
aiirii
2004-07-06
打赏
举报
回复
show balloon tooltips in my delphi program?
uses
Commctrl;
procedure ShowBalloonTip(Control: TWinControl; Icon: integer; Title: pchar; Text: PWideChar;
BackCL, TextCL: TColor);
const
TOOLTIPS_CLASS = 'tooltips_class32';
TTS_ALWAYSTIP = $01;
TTS_NOPREFIX = $02;
TTS_BALLOON = $40;
TTF_SUBCLASS = $0010;
TTF_TRANSPARENT = $0100;
TTF_CENTERTIP = $0002;
TTM_ADDTOOL = $0400 + 50;
TTM_SETTITLE = (WM_USER + 32);
ICC_WIN95_CLASSES = $000000FF;
type
TOOLINFO = packed record
cbSize: Integer;
uFlags: Integer;
hwnd: THandle;
uId: Integer;
rect: TRect;
hinst: THandle;
lpszText: PWideChar;
lParam: Integer;
end;
var
hWndTip: THandle;
ti: TOOLINFO;
hWnd: THandle;
begin
hWnd := Control.Handle;
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
begin
SetWindowPos(hWndTip, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
ti.cbSize := SizeOf(ti);
ti.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS;
ti.hwnd := hWnd;
ti.lpszText := Text;
Windows.GetClientRect(hWnd, ti.rect);
SendMessage(hWndTip, TTM_SETTIPBKCOLOR, BackCL, 0);
SendMessage(hWndTip, TTM_SETTIPTEXTCOLOR, TextCL, 0);
SendMessage(hWndTip, TTM_ADDTOOL, 1, Integer(@ti));
SendMessage(hWndTip, TTM_SETTITLE, Icon mod 4, Integer(Title));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowBalloonTip(Button1, 1, 'Title',
'Balloon tooltip,http://kingron.myetang.com; updated by Calin', clBlue, clNavy);
end;
polarsun
2004-07-06
打赏
举报
回复
关注中。。。
瓦琦儿
2004-07-05
打赏
举报
回复
更正一下,是Balloon tooltip,不过图片地址不变。。
Ballon
ToolTip
Library_c#
ballon
message_源码
c#
ballon
tooltip
message
C++EGE:
Ballon
Ball 动画
这是一个
使用
C++的ege图形库制
作
的
Ballon
Ball 动画。 **********************
使用
说明书********************** 1、泡泡会跟着你的鼠标指针跑 2、按下空格键可以暂停 3、按下SC退出程序 ******************部分代码展示****************** #ifndef EGE_H #define EGE_H #if defined(_MSC_VER) && (_MSC_VER >= 1200) #pragma once #endif #ifndef __cplusplus #error You must use C++ compiler, or you need filename with '.cpp' suffix #endif #if defined(_INC_CONIO) || defined(_CONIO_H_) #error can not include "conio.h" before "graphics.h" #endif #if defined(_MSC_VER)
Let the
Ballon
rise
zju_2104_Let the
Ballon
rise
crashing
ballon
acm训练题 crashing
ballon
题目及代码
mask_rcnn_
ballon
.zip
mask_rcnn_
ballon
.zip
Windows SDK/API
1,183
社区成员
22,335
社区内容
发帖
与我相关
我的任务
Windows SDK/API
Delphi Windows SDK/API
复制链接
扫一扫
分享
社区描述
Delphi Windows SDK/API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章