Загрузка форм из DLL.

← →
IgorRu © (2004-02-02 10:44) [0]

Создал DLL с формой. Об"явил процедуру:

procedure ShowSettings(MainForm: Pointer); stdcall;

с таким кодом:

with TMainDllForm.Create(MainForm) do begin ShowModal; Free; end;

Если все это запустить и посмотреть в "Диспетчер задач" то там появляется еще одно приложение. Если внутри DLL из TMainDllForm вызвать еще одну форму, то в "Диспетчер задач" появиться еще одно приложение. Такое ощущение, что все они живут отдельно от TApplication. Как создать форму из своей DLL так, что бы не создавалось новое приложение.

← →
Ega23 © (2004-02-02 10:50) [1]

В DLL у тебя свой экземпляр TApplication.
Я обычно делаю так: передаю в
ShowSettings(MainForm: Pointer); stdcall; не MainForm, a AppHWND.
После чего
Application.Handle:=AppHWND; Application.CreateForm(TMainDllForm, MainDllForm);

← →
IgorRu © (2004-02-02 11:15) [2]

Действительно работает. Теперь правда появились побочные эфекты. При выгрузке библиотеки FreeLibrary(HwndLib) MainForm пропадает с экрана но в панели задачь присутствует. Есль свернуть/развернуть приложение то все восстанавливается.

← →
Ega23 © (2004-02-02 11:17) [3]

Сохраняй значение AppHandle.

← →
IgorRu © (2004-02-02 11:27) [4]

Как?

перед присвоением Application.Handle запомни старое значение
в переменную, перед выходом из procedure ShowSettings восстанови из нее Application.Handle

Вы гении.
Теперь еще бы научить извлекаемую форму создаваться с учетом предустановленных свойств. Например совершенно игнорируется свойство Position.
Я устанавливаю его в poOwnerFormCenter
В функцию добавил параметр - ссылку на вызывающую форму ShowSettings: function (Form: Pointer; AppHWND: Integer): Integer; stdcall;
Запускаю. В лучшем случае создается окно по середине Десктопа

Загрузка форм из DLL. Найти похожие ветки