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

Вниз

Модальная KOL-форма из VCL-проекта   Найти похожие ветки 

 
Dimaxx   (2003-06-13 17:57) [0]

Как заставить VCL правильно отображать KOL-форму из DLL МОДАЛЬНО!!
Скомпилировал демо-проект с сайта - все работает, но так не модальный
диалог получается. Мне же нужен модальный. Видел здесь одну тему по
определению PControl из HWND. В проекте DLL пишу:

procedure DemoModal(Owner: HWND);
const ID_SELF: array[0..5] of Char = ("S","E","L","F","_",#0);
var Frm: PControl;
begin
 Frm:=Pointer(GetProp(Owner,ID_SELF));
 NewKOLForm1(KOLForm1,Frm);
 KOLForm1.Form.CenterOnParent;
 KOLForm1.Form.ShowModal;
 KOLForm1.Form.Free;
 KOLForm1:=nil;
end;


На кнопку вешаю (все как в примере)

...
Form.ModalResult:=1;
Form.Close;
...


Далее в VCL-проекте определяю (или гружу динамически с определением)
процедуру и в нужном месте пишу:

...
DemoModal(Handle);
...


Форма появляется на одно мгновение и потом исчезает! Причем не работает ни
статический, ни динамический вызов!! Как быть??

PS: В демо-проекте с сайта после нажатия кнопки Close выскакивает ошибка
"Access violation...". Чтение/запись неправильно произведена, в общем.

Вот такие пироги с котятами!


 
Vladimir Kladov   (2003-06-14 19:24) [1]

Я обновил DemoVCLtoKOLdll, ввиду большого числа изменений. Теперь, кстати, используется ShowModalEx, т.е. вызов именно модальный: VCL-формы тоже запрещены на время диалога.


 
Dimaxx   (2003-06-15 00:25) [2]

Биг сенькс!


 
romtek   (2003-12-02 15:34) [3]

Trouble in KOLfromVCL:
When i click "Call KOL form modal" and then trying to click "x" (close window) of form instead of clicking "close" button, i see "Access violation...in module KOLDLL.dll ..."



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

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

Наверх




Память: 0.47 MB
Время: 0.054 c
9-1074578911
Hex0DesiMaL
2004-01-20 09:08
2004.05.23
Епрст....


14-1083772753
Thor
2004-05-05 19:59
2004.05.23
Посещаете ли вы фитнес-клубы, качалки, спортзалы, etc.?


14-1083733782
Dmitriy O.
2004-05-05 09:09
2004.05.23
Старость нужно уважать ? Или наоборот ?


14-1083627614
Мазут Береговой
2004-05-04 03:40
2004.05.23
Нам есть ещё чем гордиться!


3-1082921265
Forget
2004-04-25 23:27
2004.05.23
объединение таблиц c помощью Tquery