Firemonkey限制TEdit只能輸入數字的完美方法，firemonkeytedit

Firemonkey限制TEdit只能輸入數字的完美方法，firemonkeytedit

網上的方法大都會影響復制粘貼等快捷鍵，使用這個可以完美解決

需要引用System.Character單元

procedure TMainForm.EditIMEIKeyDown(Sender: TObject; var Key: Word;

var KeyChar: Char; Shift: TShiftState);

begin

// 只能輸入數字或控制字符

if not KeyChar.IsNumber and not KeyChar.IsControl then

begin

KeyChar := Char(0);

Key := 0;

end;

end;

這樣可以讓TEdit只能輸入數字，而且不影響ctrl c ctrl v 復制 粘貼 剪切 不影響home鍵 end鍵等等

限制只能輸入字母，可以用IsLetter