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

Вниз

Корректное отображение формы, вызванной из dll...   Найти похожие ветки 

 
Mazer   (2004-01-16 14:40) [0]

Здравствуйте, уважаемые!
есть dll с формой внутри.
загружаю эту форму из своего приложения примерно такой процедурой:
procedure FrmShow; stdcall;
begin
frm := Tfrm.Create(nil);
frm.ShowModal;
frm.Free;
end;
Проблема в следующем: после переключения на другое приложение и щелчке по заголовку окна в панели - появляется неактивное окно моего "главного" приложения и "не видно" форму, вызванную из dll...
Как с этим бороться?


 
Ega23 ©   (2004-01-16 14:53) [1]

Ха, есть такая штука.
Делай так:

function ExportDB(AppHandle:HWND):Boolean; StdCall;
begin
Result:=uExportDB.ExportDB(AppHandle);
end;

//*************************************************************
exports
ExportDB name "ExportDB";


В юните uExportDB (это где форма):

type
TFExport = class(TForm)

.......

var
FExport: TFExport;

function ExportDB(AppHandle:HWND):Boolean;
implementation

{$R *.dfm}

//*************************************************************
function ExportDB(AppHandle:HWND):Boolean;
begin
Result:=False;
Application.Handle:=AppHandle;
try
try
ExportParams:=TExportParams.Create(Application.ExeName);
Application.CreateForm(TFExport,FExport);
FExport.Mode:=1;
FExport.ShowModal;
except on E:Exception do
begin
Result:=False;
end;
end;
finally
Result:=FExport.ImpExpResult;
FExport.Free;
FExport:=nil;
ExportParams.Free;
ExportParams:=nil;
end;

end;

//************************************************************


Основная фича - Application.Handle


 
Mazer   (2004-01-16 15:42) [2]

а проще никак?
что такое ExportParams, ImpExpResult?


 
alex_*** ©   (2004-01-16 15:48) [3]

Основная фича - Application.Handle


 
Ega23 ©   (2004-01-16 15:48) [4]


> Mazer (16.01.04 15:42) [2]

Это мои функции, переменные юниты и т.п.
Тебе надо Application"у твоей DLLки приравнять Application вызывающего приложения.


 
Amoeba ©   (2004-01-16 16:08) [5]

Читаем http://www.delphikingdom.com/helloworld/md_dll.htm


 
vl_chel ©   (2004-01-17 12:53) [6]

Из библиотеке экспортируем процедуру показа формы, при ее вызове передаем Application.Handle - это из приложения.
Если в проект dll подключен модуль Forms то объект Application для библиотеке создастся автоматически - это другой объект!!! простым присваиванием объекту хендела можно все проблемы решить и создавать окнол привычным спосодом TMyForm.Create(Application)



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

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

Наверх




Память: 0.48 MB
Время: 0.017 c
1-93577
новичок_из_сыктывкара
2004-01-17 07:18
2004.01.29
надо сделать дерганье мышки за пределами главной формы


3-93405
dtm
2003-12-29 18:56
2004.01.29
хранение данных в виде XML в СУБД FireBird


7-93718
LORDIK
2003-11-10 20:36
2004.01.29
Осталось оперативки.


3-93399
Silver_
2003-12-30 11:17
2004.01.29
Fast Report - Проверка на NULL (в скрипте)


14-93633
Курящий
2004-01-08 17:30
2004.01.29
Курящим