Как запретить/разрешить ввод от клавиатуры любых символов (в том числе и юникодных)?

[SkAndrew]

Добрый вечер!
Как запретить/разрешить ввод от клавиатуры любых символов (в том числе и юникодных), например, в компоненте TMemo. Установка свойства TMemo.ReadOnly := True не подходит. Нужен или hook или иная идея. Но, с возможностью переключения, только в конкретном компоненте, а не во всех текстовых редакторах Windows, ввод символов от клавиатуры. Глобальное отключение клавиатуры тоже не подходит. Пожалуйста, небольшой пример.
Спасибо.

[NikLik]

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key <> #8 then
  begin //позволить удаление знаков клавишей 'Back Space'
    case Key of
      '0'..'9': key := key;//если нажата цифра, то ничего не делаем
    else
      Key := #0; //"погасить" все остальные клавиши
    end;
  end;
end;

В хуках не силен.

[SkAndrew]

Спасибо.
1. Я так понимаю, что цифры разрешено вводить с клавиатуры, а буквенные клавиши заблокированы. Правильно?

2. А можно это реализовать для конкретного контрола с помощью простейшего хука? Если можно с примером.

3. Может есть еще идеи, особенно, чтобы это работало с конкретным контролом ввода символов, например TMemo, с клавиатуры и в системах XP и Vista.

Спасибо еще раз.

[Квэнди]

для любого контрола у которого есть события onkey*

[SkAndrew]

А с хуком есть идеи? Как это можно реализовать чере хук? Спасибо.

[Квэнди]

Какова цель использования хуков для перехвата сообщений собственного приложения ?

[SkAndrew]

Желание протсо найти самый оптимальный вариант решения задачи. прописать событие KeyPress для контрола - это единственное решение? Спасибо.

[NikLik]

Нет, это не единственное решение. Но-- на мой взгляд, оптимальное.

[SkAndrew]

Спасибо, все я понял.