Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.956 c