ShowModal

← →
Сергей С (2004-02-01 15:58) [0]

Здравствуйте мастера
Приложение загружает Dll с формой -
приложение:
type
TShowForm = procedure(hApp: THandle);
var
ShowForm: TShowForm;
...
hLib:= LoadLibrary("PROJECT2.DLL");
ShowForm:= TShowForm(GetProcAddress(hLib, "SHOWFORMPROC"));
ShowForm(Application.Handle);
FreeLibrary(hLib);

библиотека:
exports ShowForm name "SHOWFORMPROC";
...
procedure ShowForm(hApp: THandle);
begin
Application.Handle:= hApp;
Form2:= TForm2.Create(Application);
Form2.ShowModal;
Form2.Free;
end;

А как при закрытии "Dll-окна" освободить память, занимаемую объектом
формы и выгрузить Dll, если окно открывается в немодальном режиме.

← →
Saracin (2004-02-01 16:08) [1]

могу посоветовать такую тему:
1. Закрытие окна.
в форме которая в dll , на OnClose делай Action := caFree;
SendMessage(ForminDLL.Parent.Handle,USR_DllFormClosed,0,0);
2. В Главном приложении сделай обработку сообщения USR_DllFormClosed типа if(больше нет окон из этой dll) then FreeLibrary(hLib);

только тебе придется вести список окон созданных из соответствующей dll. и имено пустату этого списка ты проверяешь в вышеуказаном if"e.
если не все окна закрыты и ты сделаешь FreeLibrary, то они соответственно закруются автоматом :)

С Уважением Saracin.

ShowModal Найти похожие ветки