if(!(Key >= '0' && Key <= '9') && (Key != '.'))
   Key = 0;

로 바꾸어 주시면 됩니다.

if(Key > 0) 은 없어두 되구요. 어짜피 0 일 수가 없으니깐요.
풀이를 하자면...

Key 가 0 에서 9 사이가 아니면서,
점이 아니면

0 으로 만듬.


김홍섭 님이 쓰신 글 :
: 안냐세요.
:
: 숫자랑 특수문자중 . (마침표)만 입력받고 싶습니다.
:
: void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
: {
:         if(Key > 0)
:         {
:                 if(!(Key >= '0' && Key <= '9') || (Key == '.'))
:                 {
:                         Key = 0;
:                 }
:         }
: }
:
: 위처럼 하니깐 숫자는 입력이 잘되는데 . (마침표)를 찍으면 아무것도 안찍히는군요
:
: 다른 특수문자는 말고 . (마침표) 만 찍으려고 하는데 방법을 잘 모르겠습니다.
:
: 답변 꼭 부탁드립니다.
:
: 그럼 수고하세요. ^^