Edit1Change, как сделать проверку, какая клавиша нажата?

[hon]

Ну, чтобы если пользователь нажал цифру, то она печаталась, а если букву или другой символ, то выскакивал Hint с ошибкой.

[Stilet]

В OnKeyPress Эдита:

if not key in ['0'..'9'] Тхен Ашыпка, чуваче :)

[hon]

Сообщение от Stilet

В OnKeyPress Эдита:

if not key in ['0'..'9'] Тхен Ашыпка, чуваче :)

Интуитивно сделал так:

procedure TForm1.minKeyPress(Sender: TObject; var Key: Char);
begin
   if NOT ((key='0') AND (key='1') AND (key='2') AND (key='3') AND (key='4') AND
           (key='5') AND (key='6') AND (key='7') AND (key='8') AND (key='9'))
      then
      begin
      Key:=#0;
      min.Hint:='Тхен Ашыпка, чуваче :)'
      end;
end;

(min - название Edit'а)
Вообще ничего не пишет

Зачем вы отвечаете с цитированием всего предыдущего поста ?
Чтоб "простыня" подлиннее получилась ?
Чтоб ваш "драгоценнейший" пост занимал весь экран ?
Вы не видите кнопку справа от кнопки "Цитата" ?
Или вам почему-то не видно пустое окно редактора под последним сообщением, куда можно просто ввести ответ ?
За оверквотинг у нас штрафуют, имейте это ввиду.
Дабы не нарушать правила раздела, внимательно их почитайте...

[Stilet]

(key='0') AND (key='1')

"Если клавиша равна нулю и единице"
Вдумайся что ты приказываешь машине.

[phomm]

Да, тут не И а ИЛИ надо, ну или конечно как посоветовали, key in ['0..'9']
Чтобы выскакивал хинт надо использовать

Application.ActivateHint(CalcCursorPos);

Естественно надо уже установить хинт, и проверить флаги Showhint и ParentshowHint

/off ещё хотелось напомнить hon вот об этой теме http://programmersforum.ru/showthread.php?t=169044