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

[Andre44]

Помогите! Есть edit, в событии KeyPress переменной s:=Text. Дальше нужно вызвать родительский обработчик KeyPress что бы обработать готовую строку. Подскажите как вызвать родительский обработчик.
Почему не подходит простое добавление символа, потому что текст может быть выделен как полностью так и частично. Я думаю такой подход более оптимален нежели проверка на выделение

[come-on]

Что про что?
и про какой родительский обработчик речь?

[Andre44]

Надо вызвать стандартный обработчик TEdit.KeyPress в своем обработчике

[Arigato]

Ничего не понятно, показывайте код.

[Аватар]

Нет ни какого стандартного.

[Andre44]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  Max:integer;
  i,c:integer;
  s:string;
begin
  if Sender=Edit1 then Max:=100
    else
      if Sender=Edit2 then Max:=200;
  with (Sender as TEdit) do
    begin
      TEdit.KeyPress(Key);
      s:=Text;
      Val(Text,i,c);
      if i>Max then Text:=s
    end
end;

[Аватар]

И чего? Это метод родителя TWinControl из protected. Он просто вызывает OnKeyPress, если есть такой. Стек хочешь переполнить?

[come-on]

Уберите это и считайте что оно уже вызвалось.

[Andre44]

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

Уберите это и считайте что оно уже вызвалось.

он вызывается если мне не изменяет память в конце кода, а надо именно в середине.

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

И чего? Это метод родителя TWinControl из protected. Он просто вызывает OnKeyPress, если есть такой. Стек хочешь переполнить?

а что можешь тогда посоветовать?

[Arigato]

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