procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var p:integer; tp:TPoint;
begin
?? if key in ['0'..'9','+','-','.'] then
?? //是否是0-9，以及是否為+、-號
????? begin
???????? if key in ['+','-'] then
??????????? begin
?????????????? p:=pos('+',Edit1.Text)+pos('-',Edit1.Text);
?????????????? if p>0 then key:=#0
?????????????? else
????????????????? begin
???????????????????? GetCaretPos(tp);
???????????????????? if tp.x>1 then key:=#0;
????????????????? end;
??????????? end
???????? else
if key='.' Then
//判斷是否為小數點
?????????????? begin
????????????????? p:=pos('.',Edit1.Text);
????????????????? if p>0 then key:=#0;
?????????????? end;
????? end
?? else if key>#31 then key:=#0;
end; 與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的只能输入数字的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。