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

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

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

    Pavel Гость

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

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

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

    end;
     
  2. zubr

    zubr Гость

    Код (Text):
    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

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

    Код (Text):
    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 Гость

    Спасибо за помощь!
     
  5. Barmutik

    Barmutik Гость

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

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