Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.14;
Скачать: CL | DM;

Вниз

дочерняя форма в dll   Найти похожие ветки 

 
kroner   (2006-12-23 17:08) [0]

Нашел в инете вроде бы несколько решений этой проблемы, но не работает ни одно. Например вот http://citforum.ru/programming/digest/dlldelphi.shtml

При попытке создать дочернее окно в dll выдает "Cannot create form. No MDI forms are currently active"
BDS2006 up1

library Project1;

uses SysUtils, Forms, CHILDWIN, Windows,  Classes;
var  DllApp : TApplication;

{$R *.res}

procedure MyDLLProc(Reason: Integer);
begin   if Reason = DLL_PROCESS_DETACH then
          if Assigned(DllApp) then
             Application := DllApp;
end;

procedure ShowMDIChild(MainApp : TApplication);
var     Child : TMDIChild;
begin
       if not Assigned(DllApp) then begin
               DllApp := Application;
               Application := MainApp;
       end;
       Child := TMDIChild.Create(Application.MainForm);
       Child.Show;
end;

exports ShowMDIChild;

begin
     DLLProc := @MyDLLProc;
end.


 
Palladin ©   (2006-12-23 17:38) [1]

Надо же... он нашел несколько решений... а на критику по сабжу он ни разу не наткнулся... и это не проблемма, это неосозная (может быть) ошибочная задумка... используй bpl...


 
kroner   (2006-12-23 17:44) [2]


> Palladin ©   (23.12.06 17:38) [1]
> Надо же... он нашел несколько решений... а на критику по
> сабжу он ни разу не наткнулся

натыкался, еще натыкался что у кого-то вроде бы получилось, но кода не нашел

> используй bpl...

можно подробнее, я все-таки начинающий...


 
kroner   (2006-12-23 22:09) [3]


> Palladin ©   (23.12.06 17:38) [1]
> используй bpl.

а вообще спасибо, bpl это вещь!
вот здесь хорошо написано в общих чертах http://softwarer.ru/packages.html



Страницы: 1 вся ветка

Текущий архив: 2007.01.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.059 c
9-1141844443
Mir
2006-03-08 22:00
2007.01.14
Преобразование круга в квадрат


15-1167074471
RusS
2006-12-25 22:21
2007.01.14
алгоритм


2-1166679541
Action
2006-12-21 08:39
2007.01.14
Интересный вопрос. Создаю компонент на основе TPanel


15-1166685828
Jeer
2006-12-21 10:23
2007.01.14
Самолет так и не взлетел.


2-1166641119
Signate
2006-12-20 21:58
2007.01.14
Манипуляции с TSocket...