Замена Edit.OnChange на свою процедуру

← →
Мефодий (2004-02-09 11:05) [0]

MyEditOnChange: TNotifyEvent;

procedure MyEditOnChange(Sender: TObject);
begin
ShowMessage("OK");
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Edit1.OnChange := MyEditOnChange;
end;

Почему при наборе текста Edit1 в не срабатывает ShowMessage("OK") ?

← →
Anatoly Podgoretsky (2004-02-09 11:07) [1]

Вообще то дело даже не дойдет до запуска, это просто не откомпилируется.

← →
PVOzerski (2004-02-09 11:24) [2]

Я проблемы не понял. В Design-Time - через инспектор объектов. Во время исполнения - простым присвоением. Только свой обработчик надо описать как метод класса, а не так, как в самом первом ответе.

← →
KSergey (2004-02-09 12:16) [3]

Читаем тут:
http://www.delphikingdom.com/helloworld/runtime_comp.htm

← →
Мефодий (2004-02-09 12:46) [4]

Конечно же надо было описать как метод класса.
Спасибо.

Замена Edit.OnChange на свою процедуру Найти похожие ветки