Доброго времени суток. Подскажите пожалуйста решение моей проблемы.
При создании дочернего окна в программе вылетает ошибка.
Собственно код
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | 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'. Никак не могу разобраться.
Ошибка в строке
Код:
1 | ListKeyWorld:=TListBox.Create(ChildForm);
|
Что не так-то? Заранее спасибо!
22.12.2011, 21:57
Проблемы с дочерним окном
Линейный вид
