Искал тут в поиске, искал в FAQ (CHM)..
В общем суть такая... Хочу ограничить в Edit ввод. Только числовые данные...
Клавиатуру обрабатываю спокойно на OnKeyPress(); Но, юзер может вставить любые данные, если нажмет правой кнопкой мыши и выберет Paste…
Вот этого очень бы не хочется...
Я думаю, есть два варианта...

1. Сделать на MouseDown что-то типа:

Код

procedure TMainForm.EnterButtonMouseDown(Sender: TObject;  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button <> mbLeft then  Action := nil; // Вот как это не знаю. end;

2. Повесить на форму липовый (пустой PopupMenu) и привязать его у Edit’у...

В принципе, вариант с PopupMenu меня устраивает, но я не вижу смысла создавать лишний объект, если можно одной строчкой кода сделать то, что нужно...

А может тебе попробывать, после ввода значений, когда твоя информация из Edit начнёт обрабатыватся, то ты используй такое: (подразумевается что цифры целые, но можно и вещественные)

Код

Var   N:Integer; ... Try   N:=StrToInt(edit1.text) Except  //в случае ошибочного ввода   showmessage('Ошибочный ввод');   edit1.Selectall;   edit1.SetFocus;   exit; End;

Это сообщение отредактировал(а) Zero - 7.11.2004, 22:10