Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DLL, не завершается основная программа. [D6, WinXP]


Brand ©   (2002-02-04 22:57:00) 

Имеется DLL, в которой форма и функция, которая создает эту форму следующим образом:

function ShowNewForm(AOwner : TComponent): TForm3;
var
Form : TForm3;
begin
Form:=TForm3.Create(Application);
ShowNewForm:=Form;
end;

В основной программе описываю такой-же тип TForm3 и переменную
Some : TForm3.
Затем есди я не вызываю ShowNewForm, то программа завершается нормально, а если пишу

Some:=ShowNewForm(Self);

то программа компиллируеься, запускается, но не завершается, хотя до этой строчки дело и не доходит.
???


Brand   (2002-02-04 23:45:00) [1]

ТО я перепутал. У меня там вместо Application AOwner и стоит.
Ничего не помогает. Так самое обидное, что все работало, а потом после каких-то действий начало глючить.


Tosov   (2002-02-04 23:31:00) [2]

Хотя, что nil, что Self - все одно и тоже..
Зачем тебе AOwner : TComponent? Где ты его используешь? И откуда взялся Application?

Попробуй вместо
Form:=TForm3.Create(Application);
ShowNewForm:=Form;


Result:=TForm3.Create(AOwner);
Может и поможет, а может и нет :)


Tosov   (2002-02-04 23:28:00) [3]

Brand
Передавай nil вместо Self.


Наверх

Титульная страница Поиск, карта сайта Написать письмо