怎样使OnKeyDown实现OnKeyPress的功能效果(50分)

  • 主题发起人 主题发起人 wwk
  • 开始时间 开始时间
W

wwk

Unregistered / Unconfirmed
GUEST, unregistred user!
我在OnKeyPress中作如下代码：
procedure EditKeyPress(Sender: TObject; var Key: Char);
begin
Key := #0;
end;
这样无论怎言输入，Edit的Text永远不变
但我要在OnKeyDown中实现，如下：
procedure EditKeyDown(Sender: TObject; var Key: Word;.....);
begin
Key := 0;
end;
但取得不到和OnKeyPress中的效果

 
事件的执行顺序是先OnKeyPress后OnKeyDown
为什么不想在OnKeyPress中实现呢？
 
to liuly:
因为我还要捕获光标方向键，而在KeyPress中捕获不到。
 
我想除非是重写Vcl,否则不可能相同。
 
别的输入在KEYPRESS里屏蔽，方向键在KEYDOWN里扑获啊！！！
 
agree with gcq
 
wwk:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。
 
加个条件语句，
在OnKeyPress中处理字符按键。
在OnKeyDown中处理功能按键。
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit1.ReadOnly := not (Key in [VK_LEFT, VK_RIGHT, VK_HOME, VK_END]);
end;
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

S
[原]Delphi2010中DataSnap高级技术(5)—建立稳定服务程序之TCP心跳包的使用
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
[原]Delphi2010中DataSnap高级技术(5)—建立稳定服务程序之TCP心跳包的使用
回复
0
查看
989
SUNSTONE的Delphi笔记
S
I
如何编写使StringGrid中的一列具有Check功能，和CheckBox效果一样
回复
0
查看
647
import
I
I
类似IE地址栏的自动完成的效果
回复
0
查看
598
import
I
I
Edit&Memo控件的文本得对齐方式
回复
0
查看
702
import
I
后退
顶部