BORLAND DELPHI 7!.

[ClasSiC]

Помогите сделать защиту от ввода на калькуляторе букв!.Т.Е. Чтобы они не пропичатывались вообще в поле Edit1.Text...

[Savicki]

procedure TForm3.PDJXPEdit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var
   Mgs: TMsg;
   procedure EatKey;
   begin
     PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
   end;

begin
   if (ssCtrl in Shift) then
     case key of
       86:
         begin
           if Clipboard.HasFormat(CF_TEXT) then
             try
               StrToInt(Clipboard.AsText);
             except
               EatKey
             end;
         end;
       67:
         else
           EatKey;
     end
   else if not (Char(Key) in [#8, #13, '.', '0'..'9','`'..'i' ]) then EatKey;
end;