VPF::PageControl и форма из DLL - Форум программистов

LordMadman

Дата 19.2.2011, 18:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть главная форма и dll. Форма из dll вставляется в PageControl.
Проблема - после вставки формы, она не отображается. Появляется только, после перехода на другой TabSheet и возврата на TabSheet-родитель

Главный модуль:
процедура показа формы из dll

Код


procedure TMainForm.Button4Click(Sender: TObject);
begin
  with Forma do
   begin
     Parent := TabSheet1;
     Top := 0;
     Left := 0;
     Width := Parent.ClientWidth;
     Height := Parent.ClientHeight;
     Visible := True;
     Repaint;
     Refresh;
     Update;
     Invalidate;
   end;
  with TabSheet1 do
   begin
     Repaint;
     Refresh;
     Update;
     Invalidate;
   end;
end;

Код


 Forma: TForm;
...
procedure TMainForm.Button1Click(Sender: TObject);
begin
   DllHandle := LoadLibrary('ProjectDll');
   ProcAddr := GetProcAddress(DllHandle, 'ProvaChild');
   if ProcAddr <> nil then
   begin
      ProvaChild := ProcAddr;
      Forma := ProvaChild(Application,Self);
   end;
end;

Код из dll

Код


function ProvaChild(ParentApplication: TApplication; ParentForm: TForm): TForm; export; stdcall;
var
  DllProc: Pointer;             { Called whenever DLL entry point is called }

begin
   Application:=ParentApplication;

   Form1:=TForm1.Create(ParentForm);
   Form1.MyParentForm:=ParentForm;
   Form1.MyParentApplication:=ParentApplication;
   Result := Form1;
end;

Gwire

Дата 20.2.2011, 14:59 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

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

Попробу вместо "Visible := True;" вписать "Show;"
Разница не большая, но все же может BringToFront сотворит чудо (я не проверял).
Не один раз создавал формы из библиотек - такой как у тебя проблемы не было.

Код


Top := 0;
Left := 0;
Width := Parent.ClientWidth;
Height := Parent.ClientHeight;
// Можно заменить на 
Align = alClient;

LordMadman

Дата 23.2.2011, 09:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Не помогает

Gwire

Дата 23.2.2011, 15:51 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

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

Я когда-то создавал пост:
Delphi: WinAPI и системное программирование/p-2126138.html
Там все заработало. Пробуй через Handle окна.

Это сообщение отредактировал(а) Gwire - 23.2.2011, 15:54

gesper

Дата 15.9.2014, 20:49 (ссылка)

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

Загрузка ...

"Shарфик"

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

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

Новую тему создавать не стану, задам вопрос тут:
Q:Делается проект в Lazarus, по этому спрашиваю. В Delphi если создать dll и загнать в нее форму, то при вызове из основного приложения команды создания формы и попытки засунуть ее в компоненты pageControl все проходит нормально, или есть какие то шаманства с присвоением владельцев, родителей и т.п. ?

У меня при попытке вызова

Код


 MyFormInspector.ManualDock(PageControl1)

вылетает сообщение

Цитата

control of class TTabsheet can't have control of class TFInspector as child

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

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

...И приколется обломившийся и oбломится приколовшийся...

drkot

Дата 16.9.2014, 14:43 (ссылка)

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

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

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

Цитата(gesper @ 15.9.2014, 21:49

)

есть какие то шаманства

есть шаманства. форма из длл имеет свой TApplication.

На мой взгляд это не самое правильное решение с концепций языка.
Либо использовать пакеты, либо просто показывать форму как отдельное окно.

Добавлено через 4 минуты и 27 секунд

Цитата(gesper @ 15.9.2014, 21:49

)

can't have control of class TFInspector as child

для того чтобы ошибка не возникала, нужно зарегистрировать класс TFInspector

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

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

gesper

Дата 16.9.2014, 15:04 (ссылка)

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

Загрузка ...

"Shарфик"

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

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

Не прокатывает, либо я как то не так регистрирую.
Есть разница как регистрировать? Может пример.
Пробовал вызывать функцию программы, которая делает регистрацию класса из библиотеки.

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

...И приколется обломившийся и oбломится приколовшийся...

Alexeis

Дата 16.9.2014, 17:59 (ссылка)

(голосов:1)

Загрузка ...

Амеба

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

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

Дело скорее всего даже не в TApplication, а в RTTI . Возможно оно заработает если и программа и длл будут использовать общий набор пакетов. Имея общие пакеты получается общая реализация классов и общий RTTI . Если делать без пакетов, то при наложения нужно работать через WinAPI. Т.е. приваивать ParentWindow и все взаимодйствия осуществлять через хэндл окна. Но и это не избавит от возможных глюков. VCL обертка вокруг окон работает не здорово в длл. Там бывают чудеса при зажатии кнопки ALT, и некорректная обработка WM_SHOWWINDOW.

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

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

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

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

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