Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.11.11;
Скачать: [xml.tar.bz2];

Вниз

Как модально показать форму из DLL   Найти похожие ветки 

 
b-Ars   (2002-10-24 12:29) [0]

Библиотека вызывается динамически, после своих грязных дел хочу её удалить из памяти, спасет только модальный вызов. Если можно, кодом плиз...


 
Игорь Шевченко   (2002-10-24 12:30) [1]

ShowModal, очевидно


 
b-Ars   (2002-10-24 12:48) [2]

>Игорь Шевченко © (24.10.02 12:30)
Это я уже слышал сто раз. Вот вызываю ф-ию, допустим Show, из библиотеки, в которой выводится эта форма, но откуда она узнает, что она будет Modal для формы приложения, вызвавшего эту функцию?


 
Игорь Шевченко   (2002-10-24 13:09) [3]

Не узнает. Надо вызывать не Show, а ShowModal


 
b-Ars   (2002-10-25 12:19) [4]

>Игорь Шевченко © (24.10.02 13:09)
М-М-Млин, Игорь, вы издеваетесь :) Show - это допустим функция моя, в которой Visible формы из библиотеки ставится в True. Из того, что вы говорите получается, что если в этом месте я вызову её ShowModal всё прокатит, форма библиотеки заблокирует окно вызвавшего её приложения? Я так понял?


 
Игорь Шевченко   (2002-10-25 12:51) [5]

Я отнюдь не издеваюсь. Вопрос был: Как модально показать форму из DLL. Ответ: ShowModal

Могу добавить, что вызов ShowModal (равно как создание и освобождение формы) должны находиться внутри DLL, лучше, если в одной функции.


 
NailS   (2002-10-25 14:17) [6]

Передать в длл Application.Handle и там присвоить его местному Application.Handle?


 
b-Ars   (2002-10-25 14:57) [7]

Код вызова библиотеки в программе:

Handle:=LoadLibrary("SAMPLE.DLL");
if Handle>=32 then
begin
@MyImportProc:=GetProcAddress(Handle,"ShowLogo");
MyImportProc();
end;
FreeLibrary(Handle);
end;


Код процедуры в библиотеке:

procedure ShowLogo;
Begin
Frm_Logo:=TFrm_Logo.Create(Application);
Frm_Logo.ShowModal; <------- Как вы советуете
End;


Итог вызова:
Exception EInvalidOperation in module SAMPLE.DLL at 00033EDD2 и не пахнет никаким модалом.

Соответственно вопрос: Где правда?


 
Игорь Шевченко   (2002-10-25 15:11) [8]

Frm_Logo.ShowModal;
Frm_Logo.Free;


 
Skier   (2002-10-25 15:15) [9]

>b-Ars
Игорь Шевченко © (25.10.02 15:11) + try ... finally ... end


 
b-Ars   (2002-10-30 14:31) [10]

>Игорь Шевченко © (25.10.02 15:11)
>Skier © (25.10.02 15:15)
Извините, все сделано как вы говорите, но: Exception EInvalidOperation in module SAMPLE.DLL at 00033EDD2, может быть у формы какие-то особенные настройки или ещё что должно быть?



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

Форум: "Основная";
Текущий архив: 2002.11.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.011 c
14-34172
AL2002
2002-10-21 13:41
2002.11.11
Задача.


14-34166
Феликс
2002-10-17 14:12
2002.11.11
Почему?


1-34053
TankMan
2002-10-30 18:20
2002.11.11
События при завершении приложения?


7-34263
Keplin Sergey
2002-09-07 00:45
2002.11.11
создать несколько вложенных каталогов одной функцией!


1-33957
Пух
2002-11-01 01:44
2002.11.11
Есть-ли русская версия Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский