Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Присвоение метода во время выполнения программы

jonik_sj © (2004-08-16 16:03:00)
Мне необходимо присвоить некоторым компонентам на форме одинаковое событие на OnExit. Я пробегая по массиву Componetns
нахожу по условию нужные мне компоненты, затем делаю присваивание

TEdit(Frm.Components[i]).OnExit := Моя процедура;

Вообщем все работает нормально.
Вопрос в следующем, почему так можно делать и не повлечет ли это каких то последствий , потому как мои компоненты никакого отношений к компоненту Tedit не имеют и не являются его наследниками ???

jonik_sj (2004-08-16 17:41:00) [1]
Гаврила

Спасибо, возьмем на заметку.

Гаврила (2004-08-16 16:35:00) [2]

> Анонимщик © (16.08.04 16:24) [3]

В принципе да, адреса будут совпадать. Но как то все таки кривовато это выглядит - под TEdit.

> jonik_sj (16.08.04 16:29) [4]

Это скорее вопрос стиля.
Я имел в виду такую запись
TWinControlAccess = class(TWinControl);

{В том же модуле, чтобы был доступ к protected свойствам}
А далее
TWinControlAccess(Frm.Components[i]).OnExit := Моя процедура;

s999 (2004-08-16 16:32:00) [3]
Да не волнуйся, никаких последствий не будет. Хоть метод от TObject-а им присваивай.

jonik_sj (2004-08-16 16:31:00) [4]
Анонимщик - спасибо

jonik_sj (2004-08-16 16:29:00) [5]
Семен Сорокин

А мне не надо проверять на принадлежность классу TEdit. Как проверять я знаю

Гаврила

Проверку я делаю. Они все наследники TWinontrol.

Наверное не точно написал, компоненты не мои, я их не писал.

На форме есть объекты трех типов: Образно тип TxxxDBEdit, TxxxDBDateEdit, TxxxLookupEdit. Наследниками TEdit они не являются .

Меня интересует вопрос какие последствия может иметь такое присваивание метода?

Анонимщик (2004-08-16 16:24:00) [6]
Можно делать потому, что твой не-наследник TEdit'а - все равно, видимо, наследник TWinControl'а. Поэтому адреса поля FOnExit все равно совпадают. В этом случае никаких последствий не будет.

Гаврила (2004-08-16 16:11:00) [7]
Во первых, обязательно надо проверить на наследованность от TWinControl.
Во вторых, лучше все таки объявить своего первого потомка от TWinControl и типизировать под него

Семен Сорокин (2004-08-16 16:11:00) [8]
проверяй перед этим на
if Frm.Components[i] is TEdit then

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »