1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Как включить клавишу BackSpace?

Тема в разделе "Delphi - Система", создана пользователем Pavel, 7 янв 2005.

Статус темы:
Закрыта.
  1. Pavel

    Pavel Гость

    Репутация:
    0
    Как включить в список допустимых символов для ввода BackSpace.
    Процедура работает, но если введён не тот символ, то удалять приходиться всю введённую строку кнопкой DELETE.
    По одному символу удалять не получается.

    procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
    begin

    If not (Key in ['А'..'Я', '0'..'9', '.', ' ']) then
    Key:=#0;

    end;
     
  2. zubr

    zubr Гость

    Репутация:
    0
    Код:
    procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
    begin
    If not (Key in ['А'..'Я', '0'..'9', '.', ' ']) then
    begin
    If Ord(Key)<>8 then
    Key:=#0;
    end;
    end;
     
  3. acorn

    acorn PHP Developer

    Репутация:
    0
    Регистрация:
    29 авг 2004
    Сообщения:
    585
    Симпатии:
    3
    А так еще лучше (зачем begin тревожить?)

    Код:
    procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
    begin
    
    If (not (Key in ['А'..'Я', '0'..'9', '.', ' ']))and(Ord(Key)<>8) then 
    Key:=#0;    
    
    end;
     
  4. Guest

    Guest Гость

    Репутация:
    0
    Спасибо за помощь!
     
  5. Barmutik

    Barmutik Гость

    Репутация:
    0
    Ord(Key) <> 8, можно просто в множестве указать #8 ;)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей