| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Список классов, зарегестрированных в Delphi [D7, WinXP]

sirin ©   (2005-12-25 04:09:00) 

Собственно, как узнать сабж ?
примерно, как делает IDE по Viev->ComponentList

---

sirin   (2005-12-25 08:05:00) [1]

Блин, неправильно написал

 if FormInterface<>nil then
   ShowMessage(FormInterface.FileName);

Проблема остается

---

sirin   (2005-12-25 08:03:00) [2]

вопрос вдогонку
Задача - получить все компоненты на форме
Возникла проблема с использованием интерфейса TIFormInterface
получаю ссылку на него

var
 ModuleInterface: TIModuleInterface;
 EditorInterface: TIEditorInterface;
 FormInterface: TIFormInterface;
 ComponentInterface: IOTAComponent;
 ComponentIndex, ComponentCount : integer;
 CurrentComponent: IOTAComponent;
 CurrentFileName: string;
 ComponentList: array of string;
begin
 CurrentFileName := ToolServices.GetCurrentFile;
 ModuleInterface := ToolServices.GetModuleInterface(CurrentFileName);
 FormInterface := ModuleInterface.GetFormInterface;
 FormInterface := ModuleInterface.GetFormInterface;
 if FormInterface=nil then
   ShowMessage(FormInterface.FileName);



но использовать полученную ссылку не удается
Такое ощущение, что этот интерфейс просто не реализован.

---

Наверх