VPF::Проблема с общей формой - Форум программистов

bazzzman

Дата 18.9.2006, 05:26 (ссылка)

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

Загрузка ...

Шустрый

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

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

Вот такая проблема. Есть exe и dll.
В dll есть функция:

Код


procedure Func(ParentForm: TWinControl);
begin
   Fr_Lang := TFr_Lang.Create(ParentForm);
   Fr_Lang.Parent := ParentForm;
   Fr_Lang.Align := alClient;
   Fr_Lang.Show;
end;

Fr_Lang - это обычная форма со своим набором контролов. Она хронится в dll.

Exe вызывает эту функцию с параметром - главная форма приложения:

Код


Func(Application.MainForm);

Т.е. мы просто создаем дочернюю форму из dll.

Если в главной форме Exe через Application.MainForm.Controls[0] попытаться
обратится к форме созданной в dll, то
(Application.MainForm.Controls[0] is TControl) = True
а вот
(Application.MainForm.Controls[0] is TWinControl) = False

Как в Exe обратиться к свойствам и методам формы созданной в Dll?

Alexeis

Дата 18.9.2006, 07:22 (ссылка)

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

Загрузка ...

Амеба

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

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

Подозрительно, что не определяет правельно, тип, но если это точно форма, то в наглую использовать преобразование типов (Application.MainForm.Controls[0] as TControl).caption := 'hdfhd';

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

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

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

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

Fedia

Дата 18.9.2006, 07:37 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

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

А если экспортировать не процедуру, а функцию:

Код


function Func(ParentForm: TWinControl): TFr_Lang;
begin
   Result := TFr_Lang.Create(ParentForm);
   Result .Parent := ParentForm;
   Result .Align := alClient;
   Result .Show;
end;

Ну а далее с результатом функции производить нужные действия.

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

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

bazzzman

Дата 18.9.2006, 08:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

(Application.MainForm.Controls[0] as TControl) дает ошибку.

Цитата

function Func(ParentForm: TWinControl): TFr_Lang;
begin
   Result := TFr_Lang.Create(ParentForm);
   Result .Parent := ParentForm;
   Result .Align := alClient;
   Result .Show;
end;

Этого вообще делать нельзя. Тоже ошибку получаем.

Добавлено @ 08:43
Вот что я нашел:

Цитата

If you want to group MDI children into a DLL you have to build the host MDI application and the DLL with run-time packages. This ensures that all the modules and the main application use the same Application and Screen objects as well as the same instance of the RTL and VCL. To be 100% sure, you should use Packages instead of DLLs (why mess with DLLs when those MDI child forms make sense only in your Delphi application)!
MDI child inside a Package - the only true solution!
A Delphi Package is a special type of DLL, designed only to be used by Delphi applications. If your modules are developed as packages and not as DLLs, all modules will share the same memory manager, the VCL globals like Application and Screen, the same copy of the RTL and VCL code in memory!

Похоже придется использовать .bpl вместо .dll

Fedia

Дата 18.9.2006, 09:18 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

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

Цитата(bazzzman @ 18.9.2006, 08:32

)

Этого вообще делать нельзя. Тоже ошибку получаем.

C "не дочерними" работает. С дочерними не пробовал.

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

bazzzman

Дата 18.9.2006, 10:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

C "не дочерними" работает. С дочерними не пробовал.

Можно source?

Fedia

Дата 18.9.2006, 10:54 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

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

Цитата(bazzzman @ 18.9.2006, 10:24

)

Можно source?

Конечно !

Добавлено @ 10:56
В папке "DLL" - библиотека, в папке "DLL\Form" - проект, вызывающий форму из библиотеки.

Присоединённый файл ( Кол-во скачиваний: 3 )

DLL.zip 10,22 Kb

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

Alexeis

Дата 18.9.2006, 10:58 (ссылка)

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

Загрузка ...

Амеба

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

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

Цитата(bazzzman @ 18.9.2006, 08:32

)

(Application.MainForm.Controls[0] as TControl) дает ошибку.

Код ошибки если не сложно.

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

bazzzman

Дата 18.9.2006, 11:50 (ссылка)

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

Загрузка ...

Шустрый

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

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

Fedia, твой пример в самом деле работает. Но мне нужен маленько другой фунционал.

Как получить ошибку в примере Федора smile

:

1. В Lib.dpr после:

Код


Result:=TFormTest1.Create(ParentForm);

добавляем:

Код


Result.Parent := ParentForm;

т.е. делаем форму в форме.

2. В Project1.dpr после:

Код


FormTest.Close;

добавляем:

Код


FormTest.Destroy;

Вот теперь если после показа формы в Project1.dpr сделать:

Код


  if Controls[1] is TWinControl then
   ShowMessage('1. '+Controls[1].Name);
  if Controls[1] is TControl then
   ShowMessage('2. '+Controls[1].Name);

То мы увидим только второй ShowMessage. Т.е. мы не можем обратится к созданной форме через Controls[x]. Получаем всегда TControl вместо TForm.

А вот:

Код


  with Controls[1] as TWinControl do
   ShowMessage('2. '+Controls[1].Name);

Вернет:

И is тоже не работает. Как проверить Controls[1] - это форма или нет?

Это сообщение отредактировал(а) bazzzman - 18.9.2006, 11:51

bazzzman

Дата 19.9.2006, 02:28 (ссылка)

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

Загрузка ...

Шустрый

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

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

Не работает:

Код


  with Controls[1] as TWinControl do
   ShowMessage('2. '+Controls[1].Name);

Работает отлично:

Код


   ShowMessage(TWinControl(Controls[1]).Name);

Как проверить что Controls[1] именно форма? Подскажите плз. smile

Akella

Дата 19.9.2006, 08:05 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(bazzzman @ 19.9.2006, 02:28

)

Как проверить что Controls[1] именно форма? Подскажите плз.

Код


  if (Controls[1] is TForm) then...

bazzzman

Дата 19.9.2006, 08:48 (ссылка)

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

Загрузка ...

Шустрый

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

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

Akella, читай мой предыдущий пост.

Код


if Controls[1] is TWinControl then

Не работает.

Код


if (Controls[1] is TForm) then...

Тоже не работает.

Код


with Controls[1] as TWinControl do

Выдает ошибку.

Но!

Код


TForm(Controls[1])

Работает отлично.

Но использовать TForm(Controls[1]) не безопасно, т.к. это может быть и не форма.
Это какая-та особенность vcl? Как проверить Controls[1] - это форма или нет?

bazzzman

Дата 20.9.2006, 02:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

Я сам нашел решение. Если кому-то интересно:

Код


if (Controls[1].ClassParent.ClassName = 'TForm') then

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