Z
zr1800
Unregistered / Unconfirmed
GUEST, unregistred user!
例如下面的代码，本意是想屏蔽掉edit的所有输入，但是运行后，发现根本没有任何作用，edit仍然可以正常输入。
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
key := 0;
end;
但是，如果在onkeypress里面让 Key := #0，就可以屏蔽掉所有的ascii按键。
请问，这是delphi的本意吗？在Onkeydown事件里面，如何才能屏蔽某个按键呢？
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
key := 0;
end;
但是，如果在onkeypress里面让 Key := #0，就可以屏蔽掉所有的ascii按键。
请问，这是delphi的本意吗？在Onkeydown事件里面，如何才能屏蔽某个按键呢？
