Необходимо в .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 файла.
Есть ли другие варианты решения этой проблеммы? |
спасибо!