有什么办法能屏蔽键盘的连发阿?

Question

我想在一个EDIT里输入文字，可现在是当我按住一个键不放时TEXT中就不停的输入这个字母。有什么办法能屏蔽键盘的连发阿?

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Edit1.Tag = 1 then begin Key := #0; Exit; end;
  Edit1.Tag := 1;
end;procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit1.Tag := 0;
end;