VPF::Получить список форм приложенияхх

Anry

Дата 23.10.2007, 18:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 20.4.2006

Репутация: нет
Всего: нет

Созданные формы можно через TScreen получить.
А можно ли каким-то образом получить названия всех форм приложения, даже если они не созданы?

Rennigth

Дата 23.10.2007, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(Anry @ 23.10.2007, 18:19

)

А можно ли каким-то образом получить названия всех форм приложения, даже если они не созданы?

Ну во первых что ты имеешь под названием "НЕ СОЗДАННОЙ" формы? То что из dfm-ины по умолчанию присваиваеться? Или класс-ы наследники от TCustomForm которые возможно будут созданны в приложении?
Если первое то разрибаешь на кусочки ресурсы приложения.
Если второе то разрибаешь на кусочки rtti приложения.

P.S. Лутше скажи зачем тебе это нужно?

Это сообщение отредактировал(а) Rennigth - 23.10.2007, 18:57

--------------------

(* Honesta mors turpi vita potior *)

Anry

Дата 24.10.2007, 09:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 20.4.2006

Репутация: нет
Всего: нет

Под "созданной" я имею ввиду, что создан хотя бы один экземпляр формы.
Нужно название из DFM.

Для чего?
Есть механизм, который создает меню отчетов для каждой формы. По простому: есть таблица в базе. В поле через запятую пишутся названия форм как в dfm. Ломает писать руками названия. хочется типа открыть формочку со списком форм, проставить галочки и сформировать строку.

Rennigth

Дата 24.10.2007, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Anry, Ручками... ручками такие вещи делаются smile

Цитата(Anry @ 24.10.2007, 09:17

)

Ломает писать руками названия.

А зачем.
Создай таблицу с названиями "классов" форм, и регистрируй их при создании новых форм отчетов,
ну и привяжи их как-нить к своей таблице отчетов.

--------------------

(* Honesta mors turpi vita potior *)

Alexeis

Дата 24.10.2007, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


function EnumResNameProc(Module : HMODULE; lpszType : LPCTSTR;
                              lpszName : LPTSTR; lParam : TStringList) : Boolean; stdcall;
var
  FormDescr : TStringList;
  res       : TResourceStream;
  text      : TStringStream;
  i, p      : Integer;
  s         : AnsiString;
begin
  Result := true;
  if Pos('FORM', AnsiUpperCase(lpszName)) <> 0
  then
    begin
      res       := TResourceStream.Create(Module, lpszName, RT_RCDATA);
      text      := TStringStream.Create('');
      ObjectBinaryToText(res, text);
      res.Free;
      FormDescr      := TStringList.Create;
      FormDescr.Text := text.DataString;
      text.Free;
      for i := 0 to FormDescr.Count - 1
      do
        if (Pos('Caption', FormDescr[i]) <> 0)
        then
          begin
            p := Pos(' = ', FormDescr[i]);
            s := Copy(FormDescr[i], p + 3, length(FormDescr[i]) - p - 2);
            TrimLeft(s);
            TrimRight(s);
            lParam.Add(s);
            Break;
          end;
      FormDescr.Free;
    end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  List : TStringList;
begin
  List := TStringList.Create;
  EnumResourceNames(HInstance, RT_RCDATA, @EnumResNameProc, Integer(List));
  Memo1.Lines.AddStrings(List);
  List.Free;
end;

Добавлено через 2 минуты и 18 секунд
Только одно условие. Имя класса формы должно содержать слово form в любом регистре.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »