如何在Delphi限制Edit只能輸入數字，大部分的做法是在Edit的OnKeyPress事件中加入限制式，接下來就為大家介紹如下。
👇只能輸入數字
procedure Tmainform.editkeypress(sender:tobject;var key: char );
var
Uflag: integer;
begin
Uflag:=Tedit(sender).Tag;
if (not (key in ['1'..'9'])) and (not (key=#8)) then key:=#0;
end;👇可以輸入數字，並且可以使用退格刪除數字，可以使用斷行符號
procedure TfrmPaperCO_EVE.editKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9', #8, #13, #27, '.' : ;
else
begin
MessageBox(Handle,'請輸入數字',PChar('輸入錯誤'), MB_OK + MB_ICONINFORMATION);
Key := #0;
end;
end;
end;