Скачать: CL | DM;

Замена 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c