-- 숫자만 입력 procedure TForm1 . FormCreate ( Sender : TObject ); begin SetWindowLong ( Edit1 . Handle , GWL_STYLE , GetWindowLong ( Edit1 . Handle , GWL_STYLE ) or ES_NUMBER ); end; ES_AUTOHSCROLL 에디트 컨트롤 내에 텍스트를 입력할 때 에디트 영역의 크기를 넘기면 자동으로 수평 스크롤된다. ES_AUTOVSCROLL 여러 줄의 에디트 컨트롤 내에 텍스트를 입력할 때 자동으로 수직스크롤된다. ES_CENTER 여러 줄의 에디트 컨트롤에서 텍스트를 가운데로 정령한다. ES_LEFT 텍스트를 좌측으로 정렬한다. ES_LOWERCASE 에디트 컨트롤에 소문자의 입..