我想实现如下的效果:类似 飞机游戏,按住 发射子弹 键,子弹就连续发射,同时按上下左右键还能让飞机上下左右移动。我试了下在edit里安住一个键(键A)时按下另一个键(键B),则 键A 的效果就没了,不知 飞机 游戏是如何做到的?或者 按住 发射子弹键,同时斜线飞行,再按下原子弹键,则有4个键同时作用,应该如何处理??
解决方案 »
- 字符查找找出字符中头尾标志的并取出来
- DBGridEh 和 利用循环从数据库读取数据 速度怎么样
- 在打包后DELPHI配置文件不能加載的問題。。。﹗
- 用mapinfo ,在delphi中装什么控件来调用?
- 一个关于treeview的小问题
- 关于GetComputerName的问题
- Internet Explore 5.5有了打印预览功能,请问怎么自已编写一IE引擎浏览器软件,调用其打印,打印预览,剪切,复制等菜单功能,高手救我
- 来看看我写的MUGEN人物预览利器.
- 一个窗体切换问题?求助!!!
- delphi superobject 数组问题
- 求一段代码:将bmp格式图片转化为PCX格式图片(最好是已经编译通过的)谢谢了。
- docktabset控件和tabset有何不同
begin
Self.KeyPreview := True;
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
KS: TKeyboardState;
begin
GetKeyboardState(KS);
if ((KS[vk_up] = 128) or (KS[vk_up] = 129)) and
((KS[vk_left] = 128) or (KS[vk_left] = 129)) and
((KS[ord('A')] = 128) or (KS[ord('A')] = 129)) then
Self.Caption := FormatDateTime('yyyy-MM-dd hh:nn:ss', now);
end;