• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Access Violation At Address при загрузке дочерней формы

  • Автор темы Demon:-)
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

Demon:-)

Может мой вопрос покажется "ламерским" ;) но может кто нибудь сталкивался с такой проблемой.
Когда вызываю из главной формы дочернюю форму:


[codebox]...
implementation
uses Unit2;
...
procedure TForm1.CustomItem4Click(Sender: TObject);
begin
form2:=tform2.Create (self);
end;
...[/codebox]


то вылетают следующие ошибки
Ошибка: Access Violation at address xxxxxxxx in module 'XXXXXXX.exe'. Read of address xxxxxxxx.,
xxxxxxxx - любые значения адреса,
или
Ошибка: External Exception C000001D.
после чего приходится нажимать ОК и только после этого создается дочернее окно и в конце концов всё это виснет.
Дочернюю форму закрываю так:

[codebox]...
procedure TForm2.SCButton1Click(Sender: TObject);
begin
close;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=true;
end;
...[/codebox]



Как можно обойти данную проблему :(
Подскажите плз.. Если можно то с примерами...
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!