怎么控制不让输入一些字符

Question

我不想让它接受逗点输入
OnKeyDown()  if chr(key)='.' then key:=0;怎么不行？

Answer 1

你可以在OnChange事件里写东西来判断

Answer 2

设置，Form窗体的KeyPreview为True

Answer 3

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

Answer 4

if key='#13' then
  key:=#0;

Answer 5

procedure TForm_Input.Edit1KeyPress(Sender:TObject;var Key:Char);
begin
  if key='.' then
    key:=#0;
  end;

Answer 6

放在KeyPress检测
规定允许或者不允许按键的集合
比如：
IF not key in['0'..'9','a'..'z','A'..'Z','.',#8] THEN
  key:= #0;