Текущий модуль и проект

Автор: Dr. Bob

Компонент во время проектирования может знать имена текущих модулей и имя проекта. Все это можно получить с помощью 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 <> nil then
    with ToolServices do
    begin
      Label1.Caption := ExtractFileName(GetProjectName); { простое имя }
      Label2.Caption := GetProjectName;   { полное правильное имя пути }
      for i := 0 to GetUnitCount do
      begin
        Tmp := ExtractFileName(GetUnitName(i));
        StringGrid1.Cells[0, i + 1] := Tmp;
        Tmp := ChangeFileExt(Tmp, '.DFM');
        for j := 0 to GetFormCount do
          if ExtractFileName(GetFormName(j)) = Tmp then
            StringGrid1.Cells[1, i + 1] := Tmp
      end;
    end;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 806 • TDictionary Custom Sort 6 809 • Fast Watermark Sources 6 589 • 3D Designer 9 552 • Sik Screen Capture 6 928 • Patch Maker 7 376 • Айболит (remote control) 7 321 • ListBox Drag & Drop 6 180 • Доска для игры Реверси 98 140 • Графические эффекты 7 494 • Рисование по маске 6 784 • Перетаскивание изображений 5 637 • Canvas Drawing 6 018 • Рисование Луны 5 806 • Поворот изображения 5 259 • Рисование стержней 3 854 • Paint on Shape 3 011 • Генератор кроссвордов 3 964 • Головоломка Paletto 3 144 • Теорема Монжа об окружностях 3 975 • Пазл Numbrix 2 627 • Заборы и коммивояжеры 3 439 • Игра HIP 2 356 • Игра Go (Го) 2 269 • Симулятор лифта 2 673 • Программа укладки плитки 2 232 • Генератор лабиринта 2 785 • Проверка числового ввода 2 391 • HEX View 2 728 • Физический маятник 2 418

Текущий модуль и проект

Похожие по теме исходники