Доброго времени суток. Подскажите пожалуйста решение моей проблемы.
При создании дочернего окна в программе вылетает ошибка.
Собственно код
Код:
//родительское окно
procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TChildForm;
begin
Child := TChildForm.Create(Application);
Child.Caption := Name;
if FileExists(Name) then Child.SynEdit.Lines.LoadFromFile(Name);
end;
//дочернее окно
procedure TChildForm.FormCreate(Sender: TObject);
begin
ListKeyWorld:=TListBox.Create(ChildForm);
ListKeyWorld.Parent:=ChildForm;
ListKeyWorld.Visible:=false;
ListKeyWorld.Clear;
end;
при вызове процедуры родительского окна CreateMDIChild вылетает ошибка
Access violation at address in module 'Writer.exe'. Никак не могу разобраться.
Ошибка в строке
Код:
ListKeyWorld:=TListBox.Create(ChildForm);
Что не так-то? Заранее спасибо!