TC任意创建控件和事件

a837861603

用CreateWindowEx和ShowWindow创建控件之后如何再用SetWindowLong和CallWindowProc添加事件？？？ 找遍论坛没有与之相关的内容，望各位大神告知。下面是我用VB写的dll创建控件，也能添加事件，但是不能直接调用TC编写的事件。

VB创建按钮,并改变按钮的事件,并发送消息：
VB.class.cls代码：

1. Public C**t WM_LBUTTONUP = &H202
   
2. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
3. Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
4. Public OldWinProc As Long
   
5. Public Function OnMenu(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
6. Select Case wMsg
   
7. Case WM_LBUTTONUP
   
8.     msgbox "ok"
   
9. End Select
   
10. OnMenu = CallWindowProc(OldWinProc, hwnd, wMsg, wParam, lParam)
    
11. End Function
    
12. 
    

复制代码

VB.Module1.bas代码：

1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
2. Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
   
3. Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
   
4. Private C**t SW_SHOWNORMAL = 1
   
5. Private C**t GW_HWNDNEXT = 2'被屏蔽字符：C o n s t
   
6. Function showwindws(IpClassName, lpWindowName, xx, yy, wth, hei, hwnd, shijianB)
   
7.     Dim gButtonHwnd&
   
8.     gButtonHwnd& = CreateWindowEx(0&, IpClassName, lpWindowName, &H40000000, xx, yy, wth, hei, hwnd, 0, App.hInstance, shijianB)
   
9.     Call ShowWindow(gButtonHwnd&, SW_SHOWNORMAL)
   
10.     OldWinProc = SetWindowLong(gButtonHwnd&, GWL_WNDPROC, AddressOf OnMenu)
    
11.     showwindws = gButtonHwnd&
    
12. End Function
    

复制代码

TC注册插件后调用：

1. var 句柄A=controlgetchildhwnd("图色助手")'父窗
   
2. AAA=工程.showwindws("Button","按钮333",106,8,697,399,句柄A,创建之前载入的事件())

复制代码

1. 功能 创建之前载入的事件()
   
2. 调试输出("111")
   
3. 结束

复制代码

VB可以过滤事件消息并动作，怎么换成TC里的函数？？？

2576605471

tc自带动态生成控件命令

a837861603

1234324324234

a837861603

2576605471 发表于 2019-4-15 16:31
tc自带动态生成控件命令

图片框的鼠标焦点事件咋写，我就问问你这个咋写！！？？

爱上老公

a837861603 发表于 2019-4-16 01:04
图片框的鼠标焦点事件咋写，我就问问你这个咋写！！？？

消息路由啊，稍微麻烦一点

a837861603

爱上老公 发表于 2019-4-16 22:44
消息路由啊，稍微麻烦一点

回调函数即可，怪不得TC越来越少人用了，很多功能都不是现成的，不适合新手用，TC定位不上不下的，上有易语言，下有按键精灵，你说他在中间不伦不类的

a837861603

VB不支持回调，但是对TC本身而言，VB做的比TC更多，不需要再调用TC函数为dll所用，VB里面直接写事件足够了