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

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

Demon:-)

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


[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]



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