エディットに数字しか入力できないようにするには? (ID:1347)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9']) then Key := #0; end; BackSpaceの入力も可能にしたいのであれば、 if not (Key in ['0'..'9',Chr(VK_BACK)]) then Key := #0; です。