TEditに数値しか入力できないようにする

TEditを数値入力専用Editにします。OnKeyPressイベントが発生した時に数値以外を無効にしているだけです。

■数値入力専用TEdit
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9']) then Key := #0;
end;



Delphi Tipsのページへ



ホーム