销售管理软件版1楼: 在Edit上想删除时按delete键无效，(除非有选中的字符)，于是写代码来捕捉它，居然也不行，很奇怪哟！请大家帮我看一下，我用的有D7。

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_DELETE then showmessage(＇＇VK_DELETE＇＇); //运行时没有预期的结果
inherited;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#46 then showmessage(＇＇VK_DELETE＇＇); //也没有
inherited;

end;

2楼: if (Sender as TEdit).SelText = ＇＇＇＇ then
if Key=VK_DELETE then
Key := 0;// showmessage(＇＇VK_DELETE＇＇); //运行时没有预期的结果
inherited; 如网吧管理软件破解版

3楼: shine007 ：　你这样写还是没有用的。

经过测试发现，只要是本专案项目中的　Edit　均对按键 Delete 无效，换一个专案项目就没问题。实在是找不出原因来，请问各位，原因可能是在哪里呢？　谢谢！

4楼: 请问，在 KeyPress / KeyDown 之前，会激发什么事件？

5楼: 可能是Form的KeyPreview = True 了。

看看Form的 KeyDown 事件里有什么吗？

6楼: 经查看，
Form1.KeyPreview = Fasle
Form1的KeyPress/Keydown里没有另外写代码。

销售管理软件版7楼: 是不是将DEL在菜单中设置了快捷键(热键),而在相应的菜单项中没有任何代码

8楼: TO gtln ：正如你所言，问题解决了！　结账咯～

9楼: 多人接受答案了。