как фильтровать memo?

[lucky]

как 'красиво' запретить вставку определенных сиволов из клавиатуры в memo?

[Zroman]

написать обработчик onChange

[Duncon]

Ну вот одна из моих реализаций...(на примере Edit-a)(Возможно понадобится заюзать keyboard)

Код: Выделить всё

procedure Tmain_form.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in ['a'..'z','\', '-', '=', '`', '_', '^', '&', '*', '(', ')']) then 
  begin
      Key := #0;
    inherited KeyPress(Key);
  end;
end;

[Blood_Magic]

[quote="Duncon"]Ну вот одна из моих реализаций...(на примере Edit-a)(Возможно понадобится заюзать keyboard)

Код: Выделить всё

procedure Tmain_form.Edit2KeyPress&#40][/quote]

а зачем нужен 

[code]
inherited KeyPress(Key);

?

[Duncon]

Вызов пустого нажатия

[lucky]

спасибо.Так и сделал. Делаю ЧПУ(что это - bsystem.ru ). А там своя семантика.Мне бы еще про написание компиляторов ссылочку ...