Компонент во время проектирования может знать имена текущих модулей и имя
проекта. Все это можно получить с помощью ToolServices (см. файл TOOLINTF.PAS)
Имя текущего проекта можно получить с помощью вызова GetProjectName, список
модулей/форм - с помощью функции GetUnitCount, которая возвратит количество
модулей и затем с помощью GetUnitName(i) мы можем получить имя каждого модуля
(также и с формами).
Вот примерный образец кода (получение и запись имен всех модулей/форм в
StringGrid и имени проекта в Label):
procedure TInformationFrm.FormActivate(Sender: TObject);
{ необходимо: StringGrid1 (2 колонки, масса строк), Label1, Label2 }var
i, j: Integer;
Tmp: string;
begin
StringGrid1.Cells[0, 0] := 'модулей:';
StringGrid1.Cells[1, 0] := 'форм:';
if ToolServices <> nilthenwith ToolServices dobegin
Label1.Caption := ExtractFileName(GetProjectName); { простое имя }
Label2.Caption := GetProjectName; { полное правильное имя пути }for i := 0 to GetUnitCount dobegin
Tmp := ExtractFileName(GetUnitName(i));
StringGrid1.Cells[0, i + 1] := Tmp;
Tmp := ChangeFileExt(Tmp, '.DFM');
for j := 0 to GetFormCount doif ExtractFileName(GetFormName(j)) = Tmp then
StringGrid1.Cells[1, i + 1] := Tmp
end;
end;
end;
Статья Текущий модуль и проект раздела Компоненты и Классы Модули может быть полезна для разработчиков на Delphi и FreePascal.
