блокировка ввода цифр в edit delphi

// Если в тексте буфера обмена есть символы отличные от цифр, отменяем вставку.

for I := 1 to Length(ClipboardText) do

ClipboardText := Clipboard.AsText;

if (uMsg = WM_PASTE) and Clipboard.HasFormat(CF_TEXT) then

// Обработка вставки текста из буфера обмена.

wParam: WPARAM; lParam: LPARAM): Integer; stdcall;

function HandlePasteClipboardContentsToTextEdit(wnd: HWND; uMsg: UINT;

lParam: LPARAM): Integer; stdcall; forward;

// Младший параметр.

// Старший параметр.

// Сообщение операционной системы.

// Дескриптор окна текстового контроля.

function HandlePasteClipboardContentsToTextEdit(

Чтобы предотвратить метод вставки текста через меню вставки, по совету Дениса Леонтьева, используйте следующий код:

Теперь в поле Edit нельзя ввести буквы:

if not (key in['0'..'9', #8]) then

Все просто: в событие OnKeyPress пишите следующий код:

Как програмно запретить ввод букв в поле Edit?

/TEdit: ввод только цифр

Delphi » TEdit: ввод только цифр