• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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]



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

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