Вызвать обработчика события

[come-on]

s:=Text;
Val(Text,i,c);
if i>Max then Text:=s

словами расскажите что тут делаете, может тогда охота пропадет от всех обработчиков

[Аватар]

Не пойму, что хочешь сделать. В принципе KeyPress можно из protected в public перетащить и вызвать KeyPress, запустив при этом бесконечную рекурсию и падение стека

[Andre44]

Сообщение от come-on

словами расскажите что тут делаете, может тогда охота пропадет от всех обработчиков

Пытаюсь оградить пользователя от ввода числа большего чем Max.

[Arigato]

Чем не устраивает компонент TSpinEdit?

[come-on]

Ну тут во первых все наоборот, а во вторых это не надо делать, проверяйте когда он или покидает едит или вообще тогда когда это надо.
Валидируйте перед использованием. Меньше гемора и таких странных кодов

[Andre44]

Сообщение от Аватар

Не пойму, что хочешь сделать. В принципе KeyPress можно из protected в public перетащить и вызвать KeyPress, запустив при этом бесконечную рекурсию и падение стека

Мне надо чтобы на месте этой строчки выполнилось действие заложенное создателями языка, т.е. если естьвыделение то произошло замещение текста, если его нет то просто Key дописался

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

Чем не устраивает компонент TSpinEdit?

Согласен что с ним без гемора, но надо с простым edit

Сообщение от come-on

Ну тут во первых все наоборот, а во вторых это не надо делать, проверяйте когда он или покидает едит или вообще тогда когда это надо.
Валидируйте перед использованием. Меньше гемора и таких странных кодов

Как раз не наоборот, если получается число больше то я в Text возвращаю старое значение из s. Проверка когда Вы советуете создает своеобразное неудобство для пользователя, т.к. придется читать сообщение об ошибке ввода, а в моем случае просто при не правильном вводе не должен вводиться символ как например при NumbersOnly=True мы просто не можем ввести в edit не число

[Arigato]

Тогда обработчик OnChange вешайте и в нем проверяйте.

[come-on]

Ну тогда пользователь скопирует текст и вставит в эдит (мышкой), надо еще и с этим вам побороться.
Как только поборите мышку, приходите, еще расскажу с чем надо бороться.

[Andre44]

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

Тогда обработчик OnChange вешайте и в нем проверяйте.

Спасибо, вот это уже работает

Сообщение от come-on

Ну тогда пользователь скопирует текст и вставит в эдит (мышкой), надо еще и с этим вам побороться.
Как только поборите мышку, приходите, еще расскажу с чем надо бороться.

поборол мышку, что еще кроме того что каретка ставится а первую позицию вместо последней?

[come-on]

не верю (с)