Включение формы из DLL в форму приложения

← →
Евгыш (2003-10-01 08:37) [0]

Нужно включить форму из DLL в форму приложения, а точнее в TTabSheet (TForm->TPageControl->TTabSheet). C фреймом не получилось. Реализовал по своему (см. Реализация). Все хорошо, но при работе с TEdit на включенной форме, постоянно теряется фокус и переходит к компонентам формы приложения.
Как сдеать так чтобы фокус не терялся? Помогите советом.

Реализация в DLL:

TMyFrame = (TForm)
...
public
...
procedure CreateParams(var Params: TCreateParams);
end;

var MyFrame: TMyFrame;

...

// Установка параметров для включения формы в другую форму (подобие фрейма)
procedure TMyFrame.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := WS_CHILD or WS_DLGFRAME or WS_VISIBLE or DS_CONTROL;
end;

В приложение экспортируется процедура:

// AOwner-владелец формы(TTabSheet), AAppHandle-Application.Handle приложения
procedure AddControl(AOwner: TWinControl; AAppHandle: THandle)
begin
Application.Handle := AAppHandle;
MyFrame := TMyForm.Create(AOwner);
MyFrame.Parent := AOwner;
MyFrame.Left := 0;
MyFrame.Top := 0;
MyFrame.Show;
end;

← →
me (2003-10-01 12:40) [1]

Проблема в том, что в хост-приложении и DLL имеется свой отдельный класс TForm. Поможет только сборка хост-приложения и DLL с run-time packages. Иначе куча проблем с обработкой клавиши TAB, с активацией внедренных форм и пр.

Включение формы из DLL в форму приложения Найти похожие ветки