请问：如何忽略文本控件的输入

[vonafter]

请问：如何忽略文本控件的输入，譬如说，我想忽略键入‘`’这个字符

[sysu]

OnKeyPress事件
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = '`' then Key := #0;
end;

[vonafter]

多谢大侠指点，马上给分

[蓝色光芒]

同意 sysu(死树) 的做法。

To sysu(死树) :

中文输入时 这样判断好象是不行的，该怎么搞？

[vonafter]

既然有人接着发问，就等一等再结贴吧

[gexiaohua0626]

OnKeyPress事件
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = '`' then
begin
Key :=char(0);
exit;
end;
end;