不加糖的咖啡 发表于 2013-4-2 10:13:01

关于Delphi2007屏蔽按键问题

本帖最后由 不加糖的咖啡 于 2013-4-2 23:31 编辑

在OnkeyDown事件中代码如下:
if ( ssAlt in shift) and ( key=115) then
    key:=0;


这样的代码为什么不能屏蔽按键Alt+F4？？？
我用的是Delphi2007的软件不是Delphi7，难道这两个版本中ssAlt ssShift ssCtrl等键值不是这样表示的吗？

10分没人回来吗？那就50分吧。纵观50分已经很高了。

小布袋 发表于 2013-4-2 10:13:02

语句没有问题，需要把From的KeyPreview属性设成True，在响应OnKeyDown事件才可以的

伽利略幼稚 发表于 2013-4-3 16:04:13

不懂delphi,来友情帮楼主顶顶

伽利略幼稚 发表于 2013-4-3 16:06:02

鱼币与我如浮云呐，因为20鱼币实在是太难赚了

不加糖的咖啡 发表于 2013-4-3 16:36:10

伽利略幼稚 发表于 2013-4-3 16:06 static/image/common/back.gif
鱼币与我如浮云呐，因为20鱼币实在是太难赚了

本来我这里回答上对我有用的话这五十分就给你了，其实不难赚分啊。加油。

不加糖的咖啡 发表于 2013-4-3 16:36:59

伽利略幼稚 发表于 2013-4-3 16:04 static/image/common/back.gif
不懂delphi,来友情帮楼主顶顶

非常感谢。帮顶下也好。这样的学习氛围才好。

不加糖的咖啡 发表于 2013-4-3 16:41:05

小布袋 发表于 2013-4-3 11:30 static/image/common/back.gif
语句没有问题，需要把From的KeyPreview属性设成True，在响应OnKeyDown事件才可以的

非常感谢。问题解决了。

伽利略幼稚 发表于 2013-4-3 17:27:39

不加糖的咖啡 发表于 2013-4-3 16:36 static/image/common/back.gif
本来我这里回答上对我有用的话这五十分就给你了，其实不难赚分啊。加油。

多谢楼主鼓励，我要继续努力，早日来悬赏区赚分！

小布袋 发表于 2013-4-3 18:28:28

不加糖的咖啡 发表于 2013-4-3 16:41 static/image/common/back.gif
非常感谢。问题解决了。

新人，相互学习{:5_92:}

就如丶初见 发表于 2013-4-3 19:12:38

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //程序将被关闭时
begin
Canclose := False;   //取消关闭 ，   程序就关闭了了。   你去邪恶吧！   进程可关闭， 但可以隐藏进程。
end;               

不加糖的咖啡 发表于 2013-4-4 09:18:35

就如丶初见 发表于 2013-4-3 19:12 static/image/common/back.gif
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //程序将被关闭时
begin
Ca ...

谢谢，这也是个思路。管你按什么键我就是不关闭。呵呵。不过进程隐藏我还没学到。等以后学到了自个写几个恶搞程序去。

不加糖的咖啡 发表于 2013-4-4 09:20:40

本帖最后由 不加糖的咖啡 于 2013-4-4 09:24 编辑

小布袋 发表于 2013-4-3 18:28 static/image/common/back.gif
新人，相互学习
顺便请问下，我用同样的方法不能屏蔽Alt+Tab键这是怎么回事？还有Ctrl+Alt+Del键也不能屏蔽。这是为啥？还有 if (ssAlt in shift) and (key=115) or (key=9) then key:=0;   这样子语法会不会错？我试过编译通过但是只有115这个键值生效，9的键值无效。

不加糖的咖啡 发表于 2013-4-4 09:21:24

伽利略幼稚 发表于 2013-4-3 17:27 static/image/common/back.gif
多谢楼主鼓励，我要继续努力，早日来悬赏区赚分！

嗯。一起努力。

就如丶初见 发表于 2013-4-5 12:05:26

楼主加油，鱼C加油！我们都看好你哦！

bafengao 发表于 2013-5-21 22:28:12

向各位学习
页: [1]
查看完整版本: 关于Delphi2007屏蔽按键问题