delphi7中在edit中敲enter(回車)的ascii不是13嗎?怎會事啊?想觸發的事情觸發不了?

Question

Delphi7.0中Edit1中敲Enter(回車)鍵怎不會響應showmessage('ssssss');而要shift+Enter才會showmessage('ssssss');procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then showmessage('ssssss');
end;

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_RETURN then showmessage( 'ssssss ');
end;

Answer 2

那为什么edit不响应enter键啊~delphi6就不会有这样的现象啊~感觉怪列?

Answer 3

不可能不行吧,是不是shift键有问题了
呵呵

Answer 4

我怕是我动到edit的哪个属性拉,导致他不响应enter键,因为我新建立一个project测试时也是ok的,请指点~谢谢

Answer 5

小弟已经找到问题拉，我在form上面放了一个BitBtn，只要这个按钮的kind设置成yes，ok之类的就会出现这种现象～