TC2.0热键设置实例(图)

Soy_meng

看到论坛上好像有很多人不懂得怎么设置热键,下面就来做个热键获取当前鼠标所在的窗口标题等信息的例子。(注：当前的TC版本中F12键及HOME等功能区键不能设为热键)
一、界面：




下面是重要的热键设置：


完成后注册热键函数：



下面是代码(代码实现就不做解释了)：

1. 空间 热键实例
   
2. 
   
3. 功能 热键函数()
   
4.         窗口句柄
   
5.         x,y
   
6.         大小
   
7.         窗口句柄 = 窗口.鼠标所在窗口句柄()
   
8.         
   
9.         如果(窗口句柄 == 0)
   
10.                 辅助.消息框("没找到窗口！")
    
11.         否则
    
12.                 编辑框.设置文本("句柄",转换.整型转字符型(窗口句柄))
    
13.                 编辑框.设置文本("标题",窗口.得到标题(窗口句柄))
    
14.                 编辑框.设置文本("类名",窗口.类名(窗口句柄))
    
15.                 窗口.获取大小(窗口句柄,x,y)
    
16.                 大小 = 字符串.连接(字符串.连接(x,","),y)
    
17.                 编辑框.设置文本("大小",大小)
    
18.         如果结束
    
19. 返回 真
    
20. 功能结束
    
21. 
    
22. 功能 开始_点击()
    
23.         热键实例.热键函数()
    
24. 返回 真
    
25. 
    
26. 功能结束
    
27. 
    
28. 功能 退出_点击()
    
29. 
    
30. 辅助.退出()
    
31. 
    
32. 返回 真
    
33. 功能结束
    
34. 
    
35. 
    
36. 功能 热键0_热键()
    
37.         热键实例.热键函数()
    
38. 返回 真
    
39. 功能结束
    
40. 
    
41. 空间结束
    

复制代码

OK,编译运行。

二、有人觉得热键摆在界面上很碍眼,没关系,TC可以让它在界面初始化的时候隐藏起来。
如图,添加初始化函数：




代码如下：

1. 功能 初始化()
   
2. 控件.可见("热键0",假)
   
3. 返回 真
   
4. 功能结束

复制代码

编译运行,看不见了吧。


三、还有人说,如果我想让用户自己定义快捷键怎么办？在TC中实现也很简单。

打开界面,设置热键的属性



然后写下下面的代码：

1. 功能  热键0_失去焦点()
   
2.         //这里要注意一下,如果不销毁,那么以前所设置的热键还是存在的
   
3.         热键.销毁("热键0")
   
4.         热键.注册("热键0")
   
5. 返回 真
   
6. 功能结束

复制代码

当然,这个时候应该让热键这个控件显示出来。把这里注释掉。

1. 功能 初始化()
   
2.         //控件.可见("热键0",假)
   
3. 返回 真
   
4. 功能结束

复制代码

编译运行。你是否成功了？

T星人

这帖可算是小白们的福音, 写的非常详细,
为了让更多的小白们看到此帖,,   顶~~

yangfusheng

有贴必回，最喜欢楼主这样的有为青年了~

galford

我的编译的时候出现错误 >错误:C:\Users\galford\Desktop\tnt练习\热键实例\热键实例\热键实例.t 行号:13 错误信息:'转换.整型转字符串型'是未定义的函数,或者函数格式中间出现多余的字符,比如 空格 不知道咋回事呢？

caoyi2499

感谢分享·

sun

很不错啊

18641360721

egrefgdfg

mahua1130

  sm 不错
看帖要回 不然没美德

lt729541702

回复 7楼↘夢想飛舞√的帖子

我靠  你也在

qwe527x

很不错哦 学习了