[lmikle]

Ну, где-то ты напортачил.
Вообще, когда я последний раз делал такую штуку я делал ее через форму и вызов CreateParented.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

// Код DLL   // Нужна для корректного удаления формы procedure FreeForm(var Frm : TForm); stdcall; begin   FreeAndNil(Frm); end;   function MakeForm(AParent : THandle) : TForm; stdcall; begin   Result := TForm1.CreateParented(AParent);   Result.Visible := True; end;   exports   FreeForm,   MakeForm;     // Код основной программы // Создаем форму на панельке. var   PluginForm : TForm; begin   PluginForm := MakeForm(Panel1.Handle);   ...   // Поработали с формой, теперь ее убиваем   FreeForm(PluginForm); end;

Надеюсь, что причины использования FreeForm объяснять не надо?