引言: 請問tedit或者tdbedit有什么屬性可以設定隻能輸入integer或者float?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Not (Key in ['0'..'9']) then Key := Char(0);
end;

begin
  if Not (Key in ['0'..'9','.',#8]) then
    Key := #0;
end;
//'0'..'9'代表0~9的數字﹐'.'代表小數點﹐#8代表Back鍵

引言: 您好﹗ OnKeyPress事件中﹕

begin
  if Not (Key in ['0'..'9','.',#8]) then
    Key := #0;
end;
//'0'..'9'代表0~9的數字﹐'.'代表小數點﹐#8代表Back鍵

========================= 我是您的朋友﹐有您真好﹗ =========================

加入一個Edit﹐然后在其OnKeyDown事件中﹕
begin
  ShowMessage(IntToStr(Key));
end;
//此方法是在OnKeyDown事件中取回Key的十進位值﹐但使用到OnKeyPress事件中﹐就需要在前面加上#