Автор Тема: BORLAND DELPHI 7!.  (Прочитано 3781 раз)

0 Пользователей и 1 Гость просматривают эту тему.

ClasSiC

  • Гость
BORLAND DELPHI 7!.
« : 27 Февраль 2007, 01:45:35 »
Помогите сделать защиту от ввода на калькуляторе букв!.Т.Е. Чтобы они не пропичатывались вообще в поле Edit1.Text...

Savicki

  • Гость
Re: BORLAND DELPHI 7!.
« Ответ #1 : 09 Март 2007, 12:58:07 »
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;