Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 915

•  TDictionary Custom Sort  6 019

•  Fast Watermark Sources  5 809

•  3D Designer  8 623

•  Sik Screen Capture  6 144

•  Patch Maker  6 582

•  Айболит (remote control)  6 570

•  ListBox Drag & Drop  5 432

•  Доска для игры Реверси  95 329

•  Графические эффекты  6 785

•  Рисование по маске  5 947

•  Перетаскивание изображений  4 954

•  Canvas Drawing  5 333

•  Рисование Луны  5 054

•  Поворот изображения  4 601

•  Рисование стержней  3 259

•  Paint on Shape  2 497

•  Генератор кроссвордов  3 382

•  Головоломка Paletto  2 694

•  Теорема Монжа об окружностях  3 474

•  Пазл Numbrix  2 289

•  Заборы и коммивояжеры  2 972

•  Игра HIP  1 939

•  Игра Go (Го)  1 854

•  Симулятор лифта  2 191

•  Программа укладки плитки  1 921

•  Генератор лабиринта  2 362

•  Проверка числового ввода  2 047

•  HEX View  2 367

•  Физический маятник  2 003

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Проверить, числовое ли введено значение



Оформил: DeeCo

uses
  ClipBrd;

 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 var
   Mgs: TMsg;

   procedure EatKey;
   { Clear Keyboardbuffer / Tastaturbuffer leeren }
   begin
     PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
   end;

 begin
   { Check if control pressed / uberprufen, ob Control Taste gedruckt }
   if (ssCtrl in Shift) then
     case key of
       { Ctrl + v }
       86:
         begin
           { determine if the Clipboard contains a string type }
           { uberprufen, ob es Text in der Zwischenablage hat }
           if Clipboard.HasFormat(CF_TEXT) then
             { Check if text consists of numbers }
             { uberprufen, ob der Text aus Zahlen besteht }
             try
               StrToInt(Clipboard.AsText);
             except
               { If no then don't insert text }
               { Wenn nein, dann ignoriere das Einfugen }
               EatKey
             end;
         end;
       { Ctrl + c }
       67: { do nothing / nichts machen }
         else
           EatKey;
     end
   { else check for allowed characters such as BackSpace, RETURN...}
   { sonst auf erlaubte Zeichen uberprufen }
   else if not (Char(Key) in [#8, #13, '.', '0'..'9','`'..'i' ]) then EatKey;
 end;

 // Use your own Popup Menu to customize paste. 







Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте