![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
AV при создании формы-фрейма [D7]
Defunct © (2005-07-16 20:25:00)Здравствуйте.
Весьма странная ситуация.. с виду безобидная конструкция вызывает исключение где-то в недрах VCL причем никак не могу отловить где именно происходит исключение...
Блок Try-Except исключение отлавливает, после чего программа работает так, как запланировано.. Но мне этот AV очень не нравится.
Код:
procedure TMainForm.AfterKPSelected(const AControlPoint : TControlPoint);
....
try
Child := TMDIChild.Create( Self ); // <-- Здесь AV
except
on E:Exception do HandleException(ClassName, E);
end;
....
// далее идет инициализация фрейма
Child.Init(ftSurface, fName, AControlPoint, CopyBuffer);
// отрабатывает без проблем, и далее все работает (вроде бы?) без глюков
...
Конструкторы:
constructor TMDIChild.Create;
begin
inherited;
fDC := nil;
end;
на форме располагается фрейм, его конструктор:
constructor TDFrame.Create;
begin
inherited;
fDC := nil;
fCluster := False;
; <--- здесь AV (fCluster/fDC - поля, а не свойства)
end;
конструкторы очень чудесно выполняются, и после Cluster := False (перед end) возникает исключение.. Секции AfterConstruction нет, подскажите если кто с таким сталкивался в чем может быть проблема и как можно найти где именнопроисходит AV?
PS: MDIChild форма создается с wsMaximized, вначале думал может быть проблема в обработчиках OnResize, но туда при отладке даже не заходит..
Defunct (2005-07-16 21:35:00) [1]> Юрий Зотов
кода другого нет, иначе бы поставил многоточия.
их вначале и не было, написал в поисках AV...
Юрий Зотов (2005-07-16 21:24:00) [2]Если в конструкторах нет другого кода, то оба они не нужны.
Defunct (2005-07-16 20:41:00) [3]Вопрос снимается, все оказалось тривиально просто ;>
прошелся с use debug DCU's и сразу же нашел ошибку.
в OnActivate было обращение к fDC.