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

dll+newform   Найти похожие ветки 

← →
CrazyAngel ©   (2002-08-23 19:21) [0]

Нарисовал dll с функцией которая создает новую форму,
Вызываю енту функцию из своей программы а когда закрываю
созданную форму закрывается вся программа :(
Можно-ли енто как-нибудь побороть ?

---

← →
Бегинер ©   (2002-08-23 19:33) [1]

Нужно выбрать другую главную форму в Project|Options...|Forms свойство Main Form

---

← →
Юрий Зотов ©   (2002-08-23 21:53) [2]

> Бегинер © (23.08.02 19:33)

В опциях КАКОГО проекта - DLL или EXE? Как Вы считаете?

> CrazyAngel © (23.08.02 19:21)

Побороть можно все, кроме моей лени. Если бы еще хоть кусочек кода увидеть...

В частности, интересуют обработчики OnClose, OnCloseQuery и OnDestroy библиотечной формы (если они есть), код "ентой" функции и код ее вызова. А также текст сообщений об ошибках, если они возникают.

---

← →
CrazyAngel ©   (2002-08-27 11:15) [3]

Собственно вот кусочек:
В главной проге загружаю библиотечку проверяю наличие TCLPlugin()
если есть то вызываю Process()
библиотеку освобождаю при выходе из проги
Правда написано с KOL но принцип п том что форма создается
с тем же handle что и главная прога при выходе (нажимаем на крестик) закрывается все :(
а если сделать кнопочку и на нее нажимать делая form.free
то говорит мол acces violation там-то там-то :(
Может енто не в тот форум но ....

library test;
uses
Windows,
messages,
KOL;

{$R *.RES}

var
form:PControl;

function Process():boolean;
begin
form:=NewForm(applet,"Test");
form.Width:=335;
form.Height:=190;
Form.Style := WS_BORDER or WS_SYSMENU or WS_VISIBLE;
form.ShowModal;
end;

Function TCLPlugin():shortstring;
begin
TCLPlugin:="test";
end;

exports
TCLPlugin,
Process;

begin
end.

---

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

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



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