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

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

Как в Design-Time перебрать по циклу все формы проекта? [D6]


deleon ©   (2002-03-21 12:29:00) 

Как в Design-Time перебрать по циклу все формы проекта?


deleon   (2002-03-21 15:04:00) [1]

Спасибо!


Юрий Зотов   (2002-03-21 14:19:00) [2]

Сделайте поиск строки Toolservices в исходниках VCL (\Source\ToolsAPI\ToolIntf.pas). Там подробные комментарии, прочтите их и разберитесь с OTAPI. После этого останется написать довольно простой эксперт IDE.


deleon   (2002-03-21 14:00:00) [3]

Или как хотя-бы получить их список ?
Да..похоже на этом форуме можно только задавать вопросы типа:
"Как из строки получит PChar?"


deleon   (2002-03-21 12:52:00) [4]

Нет, это в Run-Time!
А как именно в design-Time ?
Я хочу при нажатии правой клавиши на своем компоненте просканировать все формы проекта, чтобы составить описание проекта в ini-файле!


Song   (2002-03-21 12:48:00) [5]

Например, так

With ListBox1.Items Do
Begin
Clear;
With Application Do For t:=0 to ComponentCount-1 Do
IF Pos("Form",Components[t].Name)>0 then Add(Components[t].Name);
End;


Однако, если стандартные имена были переопределены, тогда можно искать по классу TForm


Наверх

Титульная страница Поиск, карта сайта Написать письмо