TC5.0 Win32 api一日一例气泡示例解析(2) - TC官方合作论坛

//-----------------------------全局变量声明-----------------------------
var 区_气泡句柄 = 0
var 区_实例句柄 = 0
var 区_跟随鼠标 = false
//-----------------------------风格常量声明---------------------------------
var TTS_ALWAYSTIP = #1
var TTS_NOPREFIX = #2
var TTS_NOANIMATE = #10
var TTS_NOFADE = #20
var TTS_BALLOON = #40
//-----------------------------选项常量声明---------------------------------
var TTF_CENTERTIP = #2
var TTF_SUBCLASS = #10
//-----------------------------消息常量声明---------------------------------
var WS_EX_TOPMOST = #8
var TTM_ADDTOOLW = #432
var TTM_SETMAXTIPWIDTH = #418
//-----------------------------声明结构函数-----------------------------
//MSDN上的 RECT 结构体声明
//typedef struct _RECT {
// LONG left;
// LONG top;
// LONG right;
// LONG bottom;
//} RECT, *PRECT;
function Struct_RECT()
var 局_RECT = array()
局_RECT["left"] = array("long"=1,"value"=0)
局_RECT["top"] = array("long"=1,"value"=0)
局_RECT["right"] = array("long"=1,"value"=0)
局_RECT["bottom"] = array("long"=1,"value"=0)
return 局_RECT
end
//MSDN上的 TOOLINFO 结构体声明
//typedef struct {
// UINT cbSize;
// UINT uFlags;
// HWND hwnd;
// UINT_PTR uId;
// RECT rect;
// HINSTANCE hinst;
// LPTSTR lpszText;
//#if (_WIN32_IE >= 0x0300)
// LPARAM lParam;
//#endif
//#if (_WIN32_WINNT >= Ox0501)
// void *lpReserved;
//#endif
//} TOOLINFO, *PTOOLINFO, *LPTOOLINFO;
function Struct_TOOLINFO(uFlags=0,hwnd=0,rect=0,lpszText=0)
var 局_TOOLINFO = array()
if(rect == 0)
rect = Struct_RECT()
end
局_TOOLINFO["cbSize"] = array("int"=1,"value"=0)
局_TOOLINFO["uFlags"] = array("int"=1,"value"=uFlags)
局_TOOLINFO["hwnd"] = array("int"=1,"value"=hwnd)
局_TOOLINFO["uId"] = array("int"=1,"value"=0)
局_TOOLINFO["rect"] = array("struct"=1,"value"=rect)
局_TOOLINFO["hinst"] = array("int"=1,"value"=区_实例句柄)
局_TOOLINFO["lpszText"] = array("int"=1,"value"=lpszText)
局_TOOLINFO["lParam"] = array("int"=1,"value"=0)
//得到自己结构体的大小
局_TOOLINFO["cbSize"]["value"] = structlen(局_TOOLINFO)
return 局_TOOLINFO
end
//-----------------------------气泡实现函数-----------------------------
function 气泡_创建(参_最大宽度=-1,参_跟随鼠标=false,参_气泡型=false)
var 局_风格 = TTS_ALWAYSTIP
if(区_实例句柄 == 0)
区_实例句柄 = GetModuleHandle() //此处不论气泡_创建调用几次都仅处理一次
end
if(区_气泡句柄 == 0)
if(参_气泡型)
局_风格 = 局_风格 + TTS_BALLOON
end
区_跟随鼠标 = 参_跟随鼠标
区_气泡句柄 = CreateWindowEx(WS_EX_TOPMOST,"tooltips_class32",0,局_风格,0,0,0,0,0,0,区_实例句柄,0)
if(区_气泡句柄 != 0)
return SendMessage_int(区_气泡句柄,TTM_SETMAXTIPWIDTH,0,参_最大宽度) != 0
end
end
return false
end
function 气泡_销毁()
if(windowiswindow(区_气泡句柄))
if(windowclose(区_气泡句柄))
区_气泡句柄 = 0
return true
end
end
return false
end
function 气泡_添加(参_控件名,参_提示文本="",参_父名称="")
var 局_参数=TTF_SUBCLASS,局_矩形=0,局_提示,局_句柄,局_结构
if(windowiswindow(区_气泡句柄))
局_句柄 = controlgethandle(参_控件名,参_父名称)
局_矩形 = GetClientRect(局_句柄)
局_提示 = varaddress(参_提示文本)
if(!区_跟随鼠标)
局_参数 = 局_参数 + TTF_CENTERTIP
end
局_结构 = Struct_TOOLINFO(局_参数,局_句柄,局_矩形,局_提示)
return SendMessage_Struct(区_气泡句柄,TTM_ADDTOOLW,0,局_结构) != 0
end
return false
end
//-----------------------------声明系统函数-----------------------------
function SendMessage_int(hWnd,Msg,wParam,lParam)
return dllcall("User32.dll","int","SendMessageW","int",hWnd,"int",Msg,"int",wParam,"int",lParam)
end
function SendMessage_Struct(hWnd,Msg,wParam,lParam)
return dllcall("User32.dll","int","SendMessageW","int",hWnd,"int",Msg,"int",wParam,"struct",lParam)
end
function CreateWindowEx(dwExStyle,lpClassName,lpWindowName,dwStyle,x,y,nWidth,nHeight,hWndParent,hMenu,hInstance,lpParam)
return dllcall("User32.dll","int","CreateWindowExW","int",dwExStyle,"wchar *",lpClassName,"wchar *",lpWindowName,"int",dwStyle,"int",x,"int",y,"int",nWidth,"int",nHeight,"int",hWndParent,"int",hMenu,"int",hInstance,"int",lpParam)
end
function GetModuleHandle()
return dllcall("Kernel32.dll","int","GetModuleHandleW","int",0)
end
function GetClientRect(hWnd)
var lpRect = Struct_RECT()
if(dllcall("User32.dll","int","GetClientRect","int",hWnd,"struct",lpRect) != 0)
return lpRect
end
return 0
end

复制代码

局_TOOLINFO["rect"] = array("struct"=1,"value"=rect)

复制代码

// LPTSTR lpszText;

复制代码

function 气泡_创建(参_最大宽度=-1,参_跟随鼠标=false,参_气泡型=false)
var 局_风格 = TTS_ALWAYSTIP
if(区_实例句柄 == 0)
区_实例句柄 = GetModuleHandle() //此处不论气泡_创建调用几次都仅处理一次
end
if(区_气泡句柄 == 0)
if(参_气泡型)
局_风格 = 局_风格 + TTS_BALLOON
end
区_跟随鼠标 = 参_跟随鼠标
区_气泡句柄 = CreateWindowEx(WS_EX_TOPMOST,"tooltips_class32",0,局_风格,0,0,0,0,0,0,区_实例句柄,0)
if(区_气泡句柄 != 0)
return SendMessage_int(区_气泡句柄,TTM_SETMAXTIPWIDTH,0,参_最大宽度) != 0
end
end
return false
end

复制代码

function 气泡_添加(参_控件名,参_提示文本="",参_父名称="")
var 局_参数=TTF_SUBCLASS,局_矩形=0,局_提示,局_句柄,局_结构
if(windowiswindow(区_气泡句柄))
局_句柄 = controlgethandle(参_控件名,参_父名称)
局_矩形 = GetClientRect(局_句柄)
局_提示 = varaddress(参_提示文本)
if(!区_跟随鼠标)

复制代码

function 气泡_销毁()
if(windowiswindow(区_气泡句柄))
if(windowclose(区_气泡句柄))
区_气泡句柄 = 0
return true
end
end
return false
end

复制代码