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

Question

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

Answer 1

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

Answer 2

同意 sysu(死树) 的做法。To  sysu(死树)  :中文输入时 这样判断好象是不行的，该怎么搞？

Answer 3

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