но может кто нибудь сталкивался с такой проблемой.Когда вызываю из главной формы дочернюю форму:
CODE
...
implementation
uses Unit2;
...
procedure TForm1.CustomItem4Click(Sender: TObject);
begin
form2:=tform2.Create (self);
end;
...
implementation
uses Unit2;
...
procedure TForm1.CustomItem4Click(Sender: TObject);
begin
form2:=tform2.Create (self);
end;
...
то вылетают следующие ошибки
Ошибка: Access Violation at address xxxxxxxx in module 'XXXXXXX.exe'. Read of address xxxxxxxx.,
xxxxxxxx - любые значения адреса,
или
Ошибка: External Exception C000001D.
после чего приходится нажимать ОК и только после этого создается дочернее окно и в конце концов всё это виснет.
Дочернюю форму закрываю так:
CODE
...
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;
...
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;
...
Как можно обойти данную проблему
Подскажите плз.. Если можно то с примерами...
