Необходимо в .exe вставить формы содержащтеся в .dll причем не как отдельные окна, а в контрол (TPanel, TPageControl и т.п.)

Имеется такая структура:
main.exe
subXX.dll (библиотеки содержащие TForm's)

main.exe

Код

{ FormCreate  vHandle[x] := LoadLibrary ('sub.dll');  @vInterface[x] := GetProcAddress (vHandle[x], 'vInterface');  @vClose[x] := GetProcAddress (vHandle[x], 'vClose'); ... FormActivate   vInterface[x] ( Self.Panel); ... FormClose   vClose[x];   FreeLibrary (vHandle[x]); ... }

subXX.dll

Код

{ procedure vInterface(Parent:TsomeControl)  DLLForm:=TDLLForm.CreateParented (Parent.Handle);  DLLForm.Left:=0;  DLLForm.Top:=0;  DLLForm.Width:=Parent.Width;  DLLForm.Height:=Parent.Height;  DLLForm.Show; }

Вроде-бы все хорошо работает... но несовсем
В DLLForm's не работают элементы, например:
в DLLForm имеется RichEdit, при нажатии кнопки
DLLForm.Button:

Код

RichEdit.LoadFromFile('some.txt');

но загруженный текст не отображается в RichEdit, до тех пор пока не выполнить DLLForm.RecreateWND; а это уж очень некрасиво, т.к. перерисовывается все родительское окно из exe файла.

Есть ли другие варианты решения этой проблеммы?

Попробуй инициализировать Application DLL - а. Т.е. создаешь проецдурку такого типа:

Код

procedure InitApplication(App: TAppliaction); begin  Forms.Application := App; end;

и пихаешь в Длл, используя ее перед юзанием втоей ДЛЛ.

Да.. все гениальное просто спасибо!

тока теперь надо добавить в subXX.dll

Код

procedure vClose; DLLForm.Free; Forms.Application := nil

и все заработает

Может тогда корректней вот так?:

var OldApp:TApplication;

procedure InitApplication(App: TAppliaction);
begin
OldApp:=Application;
Application:=App;
end;

procedure UnInitApplication;
begin
Application:=OldApp;
end;

В смысле возвратить dll-ке ее старый application, и уже потом выгружать?

Unregistered дак все работает уже.

Вообщето-да все уже работает
Hy a если че-то и неработает, то FreeLibararyAndExitThread и все

И еслу уж быть точным, то в дллельке Application не инициализируется, ну покрайней мере я так думаю поэтому возвращать предидущее состояние Application смысла нет.
Если я неправ.... см ниже

Ну вот опять приколы
Все хорошо работало, пока на форму на поместил TOpenDialog, при выполнении .Execute создаются Threads которые при закрытии программы невыгружаются... и программа остается висеть в памяти...
Чего делать? как бороться? непонятно