关于消息框跟随的问题？

hyw05310

我是菜鸟，很多设置都不懂，在使用的时候，消息框怎么跟随窗口呀？正常的如图一，窗口不动，消息框正中间，但是使用过程中，肯定会拖动窗口，就会出现图二的情况。怎么样设置成消息框跟随主窗口？注意：现在使用TC 7.0版本

minews

复习一下CBT钩子,下面的代码直接调用myMessageBox("测试内容","测试标题") 即可
写完发现TC连续弹出多个MessageBox不关闭,大约到8个就会崩溃.....测试系统为win10.

1. var HHook, h
   
2. var WH_CBT = 5
   
3. var HCBT_ACTIVATE = 5
   
4. var HCBT_CREATEWND = 3
   
5. function myMessageBox(content, caption)
   
6.     installHook()
   
7.     dllcall("User32.dll", "long", "MessageBoxW", "long", windowgetmyhwnd(), "wchar *", content, "wchar *", caption, "long", 0)
   
8.    
   
9. end
   
10. function installHook()
    
11.     var hmod = dllcall("kernel32.dll", "long", "GetModuleHandleA", "long", 0)
    
12.     h = callbackmalloc("hookProc", "hookproc")
    
13.     traceprint("hookproc:" & h)
    
14.     var threadId = dllcall("kernel32.dll", "long", "GetCurrentThreadId")
    
15.     HHook = dllcall("user32.dll", "long", "SetWindowsHookExA", "long", WH_CBT, "callback", h, "long", hmod, "long", threadId)
    
16.     traceprint("HHook:" & HHook)
    
17. end
    
18. 
    
19. function hookProc(nCode, wParam, lParam)
    
20.     if(nCode == HCBT_ACTIVATE)
    
21.         if(windowgetclass(wParam) == "#32770" && wParam != windowgetmyhwnd())
    
22.             unInstallHook()
    
23.             var x, y
    
24.             windowgetpos(windowgetmyhwnd(), x, y)
    
25.             windowsetpos(wParam, x + 100, y + 100)
    
26.         end
    
27.     end
    
28.     return dllcall("user32.dll", "long", "CallNextHookEx", "long", HHook, "long", nCode, "long", wParam, "long", lParam)
    
29. end
    
30. 
    
31. function unInstallHook()
    
32.     var ret = dllcall("user32.dll", "long", "UnhookWindowsHookEx", "long", HHook)
    
33.     traceprint("UnhookWindowsHookEx:" & ret)
    
34.     callbackfree(h)
    
35. end

复制代码

fsfsgdg

先用这个，等高手回答
新建一个窗口
登录错误后
子界面句柄=控件.打开窗口("tc")


功能 初始化()
//这里添加你要执行的代码
x,y
    窗口句柄=窗口.自身句柄()
    窗口.获取位置(窗口句柄,x,y)
    窗口=控件.获得子界面句柄("tc")
    窗口.设置位置(窗口,x+119,y+72)   
功能结束

hyw05310

minews 发表于 2020-11-18 19:46
复习一下CBT钩子,下面的代码直接调用myMessageBox("测试内容","测试标题") 即可
...

大佬，能用中文的不？我这小学文化，看不懂这么多英文哦。

minews

复制粘贴就能用了
或者  TC开发工具上 英文转中文点一下 就好了

hyw05310

minews 发表于 2020-11-20 18:00
复制粘贴就能用了
或者  TC开发工具上 英文转中文点一下 就好了

现在TC论坛估计缺少管理员了，很多连接都用不了，都没有及时更新。就连英文转中文的转换器也下载不了。