我想用按键的方法调出另一个窗体,
uses 了QT
KEYPREVIEW 已为Trueprocedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
a:Word;
begin
a:=key;
if key = Key_F4 then
Form2.Show;
end;为什么不行?按了F4之后,Key的值是115,Key_F4的值是4147?
uses 了QT
KEYPREVIEW 已为Trueprocedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
a:Word;
begin
a:=key;
if key = Key_F4 then
Form2.Show;
end;为什么不行?按了F4之后,Key的值是115,Key_F4的值是4147?
解决方案 »
- 初次接触GDI+,做了一个工具函数库。抛砖引玉,公开源码,请大家看看这个思路对不对,以及实现的方法是不是高效
- idtcpserver接收判断,帮我看看???
- 为何写的程序,动态写的文字在英文系统中是?号,而菜单中的都是正确的
- 关于dUDPServer的疑问
- Delphi里的延时函数是什么?
- 这个脚本文件我该怎么用,字幕文件
- 表格中的数据选择如何实现?具体见内容!
- 哪儿可以下载installshield express for delphi6.0 或 2cd的delphi6
- 我在使用动态sql时出来了一个简单的错误(一个初学者等你的帮助)
- 高手一定要进来看,好多人期待您的回答((关于RES文件))
- 动态创建一个timer,指定它的ontimer,在执行完ontimer后释放自己。请给代码
- 关于“根据路径字符串列表生成树形目录”的最新算法
Form2.Show;
VK_F4?
中秋快乐。
正如上面的说这里的键值是虚拟键值,你应该用VK_F4来判断vk_F4 = $73;
vk_F5 = $74;
vk_F6 = $75;