Блокировка ввода

[Fantom]

Может кто знает как сделать с помощью обработчика Edit1Change, чтобы в поле Edit заблокировать нажатие всех клавиш, кроме цифровых.

[AlDelta]

Поиск по форуму - Edit ввод цифр

[Terran]

Можешь сделать так:
Конечно это не Edit1Change, но может подойдёт.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
'0'..'9': ;
else
Key :=Chr(0);
end;
end;

[Квэнди]

обсуждалось.
закрыто.