Казахстанские технические форумы

Программное обеспечение => Языки программирования => Тема начата: ClasSiC от 27 Февраля 2007, 01:45:35

Название: BORLAND DELPHI 7!.
Отправлено: ClasSiC от 27 Февраля 2007, 01:45:35

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

Название: Re: BORLAND DELPHI 7!.
Отправлено: Savicki от 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;