Страница 1 из 1

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

Добавлено: 29 мар 2006, 17:14
lucky
как 'красиво' запретить вставку определенных сиволов из клавиатуры в memo?

Добавлено: 29 мар 2006, 18:00
Zroman
написать обработчик onChange

Добавлено: 29 мар 2006, 22:10
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;

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

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

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

а зачем нужен 

[code]
inherited KeyPress(Key);
?

Добавлено: 31 мар 2006, 10:40
Duncon
Вызов пустого нажатия

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