Всем привет!
Вопрос такой:
Есть приложение, которое загружает dll-ку и вызывает в ней процедуру, которая должна как-то воздействовать на компоненты формы приложения.

Процедура в dll описана так:
 procedure PluginRun(Application: TApplication);
 var i: integer;
 begin
   for i:=0 to Application.ComponentCount - 1 do
   begin                          
     //if (Application.Components[i].ClassName='TForm1') then //работает
     if Application.Components[i] is TForm then //не работает
     begin
       showmessage('ok');
       //f:=TForm(Application.Components[i]); //работает
       f:=Application.Components[i] as TForm; //не работает
       f.Caption:='hello';
     end;
   end;
 end;

В главном приложении она вызывается так:
plugin.RunProc(Application);
где в поле RunProc record'а plugin хранится адрес процедуры PluginRun.

Проблема вот в чем.
Код, помеченный комментариями "работает" - работает.
Но код, помеченный комментарием "не работает" - не работает: не срабатывает условие if Application.Components[i] is TForm then. Долблюсь уже несколько часов и не могу понять почему? Гугль уже облазил, но кроме первого решения ничего не нашел. Кто может объяснить где косяк и как его вылечить?

Может лучше все же пакеты начать использовать, на dll?

Тем более, что твоя dll все одно может быть использована только в проекте на Delphi.

Может надо "is TForm1"?

А я и не собираюсь работать над проектом в других средах и языках. Я просил подсказать решение моей проблемы, а не посылать меня использовать то, чего я не знаю.

Osokin - Чушь говоришь, ибо в библиотеке нету TForm1. Мне надо проверить принадлежность объектов списка Components классу TForm.

>  не посылать меня использовать то, чего я не знаю.

Пакеты будут тебе удобнее мне кажется.


> Application.Components[i] is TForm

А почему это должно работать вообще? Класс твоей формы какой? TForm1 небось.

TForm1: ERROR: Undeclared identifier;

Ты зря меня не слушаешь про пакеты. В приложении и dll в каждом свои менеджеры памяти и RTTI. И твой TForm в приложении не равен TForm в dll

Ага. Это уже что-то... Буду разбираться, но для начала хотелось бы решить описанную мной проблему, а не переходить на пакеты...

> а не переходить на пакеты...

на них не надо переходить их надо включить.

и как это сделать?

> ilkz   (18.01.08 21:38) [4]

> и языках. Я просил подсказать решение моей проблемы, а не
> посылать меня использовать то, чего я не знаю.

А чего ж ты взялся использовать то, чего не знаешь.

--
Regards, LVT.

> и как это сделать?

Project->Options->Build With Packages

> А чего ж ты взялся использовать то, чего не знаешь.
>


Я не не знаю, а изучаю и пытаюсь понять собственные ошибки.

> f:=TForm(Application.Components[i]);

Кстати, так тоже можно оставить. Это альтернативный вариант, но несколько менее удобный.


> ilkz

не забудь включить пакеты и проекте dll и в основной программе.

Ага, включил пакеты и все заработало! Спасибо DVM и всем остальным за помощь!

> ilkz   (18.01.08 21:59) [16]
>
> Ага, включил пакеты и все заработало!

Будешь переносить программу на другой компьютер, не забудь перенести и пакеты тоже.

> Кто может объяснить где косяк

Объяснение здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=831
см. раздел "Чудо шестое"

Читаю... Вникаю помаленьку...