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

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

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

Есть ли у класса интерфейс? [Win95/98, WinXP]

kblc © (2005-11-03 09:39:00)
Уважаемые мастера, у меня к вам вопрос:
Как проверить, экспортирует ли класс интерфейс?

К примеру: У меня есть класс TExControl=class(TControl).
Я перебираю на форме все контролы (Controls[i]: TControl), и мне нужно знать, есть ли у НАСЛЕДНИКА этого класса опр. интерфейс.

Такое вообще возможно?
Оч. жду вашего ответа.

Суслик (2005-11-11 14:23:00) [1]
2автор

if Supports(Controls[i], IMyInterface) then
...

kblc (2005-11-11 14:18:00) [2]
Прошу прощения за опечатку,
TExControl=class(TControl, IMyInterface)

Игорь Шевченко (2005-11-03 10:25:00) [3]
Polevi © (03.11.05 10:14) [4]

> а вот этого не надо

Всякий овощ приносит пользу, будучи употреблен надлежащим образом в надлежащее время. В том числе и множественное наследование. А уж реализация множества интерфейсов всяко приносит пользу.

Sergey_Masloff (2005-11-03 10:23:00) [4]
Polevi © (03.11.05 10:14) [4]
>а вот этого не надо
Поддерживаю.

WondeRu © (03.11.05 10:08) [3]
>TExControl=class(TControl, TMyInterface)
>может все-таки IMyInterface,
Да хоть GMyInterface назови без разницы. Это только соглашение же ж.

Polevi (2005-11-03 10:14:00) [5]
>множественное наследование
а вот этого не надо

WondeRu (2005-11-03 10:08:00) [6]
kblc © (03.11.05 9:41) [1]
TExControl=class(TControl, TMyInterface)
может все-таки IMyInterface, или сбылась моя мечта (множественное наследование в Delphi)?

MBo (2005-11-03 09:43:00) [7]
TObject.GetInterface

kblc (2005-11-03 09:41:00) [8]
Прошу прощения, ошибся:
TExControl=class(TControl, TMyInterface)

Наверх

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