в объекте TEdit вводить только числовое значение и скрывались звездочками

[Federal]

Извините что засоряю тупым вопросом но все же:
Как сделать чтоб в объекте TEdit вводилось только числовое значение
и как сделать так чтобы эти значения скрывались звездочкой
т.е. ввожу 4374573
должно показать *******
Буду очень благодарен

[Grag]

В свойств Edit.PasswordChar поставь символ "*"... И делай анализ вводимых символов на допустимость...

[ZARO]

Edit1.NembersOnly := true;
Edit1.PasswordChar := '*';

[Grag]

Сообщение от ZARO

Edit1.NembersOnly := true;

Не в каждой Дельфи есть это свойство у Эдита...

[nuevegramodelamor]

function numb(ch : char; st: string) : Boolean;
begin
   if      (ch >= '0') and (ch <= '9')
        or (ch = #13)
        or (ch = #8)
        or (ch = ',')
      then
        begin
          numb := True;
          Exit;
        end;

   case ch of
      '-': if Length(st) = 0
      then numb := True;
      ',': if    ( Pos(',',st) = 0)
             and (st[Length(st)] >= '0')
             and (st[Length(st)] <= '9')
           then
                    numb := True;
      else
           numb := False;
    end;
end;

функцию в implementation

if Key = Char(VK_RETURN)
       then Edit.SetFocus
       else If not numb(Key,Edit.Text) then Key := Chr(0);

в кейпресс эдита нужного

[Federal]

Пасибки вам большое