Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Получить список форм приложенияхх


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

Автор: Rennigth 23.10.2007, 18:55
Цитата(Anry @  23.10.2007,  18:19 Найти цитируемый пост)
А можно ли каким-то образом получить названия всех форм приложения, даже если они не созданы? 

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

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

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

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

Автор: Rennigth 24.10.2007, 10:08
Anry, Ручками... ручками такие вещи делаются smile
Цитата(Anry @  24.10.2007,  09:17 Найти цитируемый пост)
Ломает писать руками названия. 

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

Автор: Alexeis 24.10.2007, 10:26
Код

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 в любом регистре.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)