KDPoid
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если отключение тем удаляет проблему, скорее всего, дело в Parent.
Там точно такая же фигня.
Код:
procedure TControl.SetParent(AParent: TWinControl);
begin
if FParent <> AParent then
begin
if AParent = Self then
raise EInvalidOperation.CreateRes({$IFNDEF CLR}@{$ENDIF}SControlParentSetToSelf);
if FParent <> nil then
FParent.RemoveControl(Self);
if AParent <> nil then
begin
AParent.InsertControl(Self);
UpdateAnchorRules;
end;
end;
end;
|
Когда вы присваиваете Parent, контрол регистрируется для отрисовки. Когда парент своё рисование производит, он должен потом заставить отрисоваться и своих подопечных.
И если ему захочется это сделать, он тоже не ожидает, что кто-то из подопечных уже умер... 
Как писал SuPriTo, попробуйте
pn.Parent := nil;
перед уничтожением, чтобы исключиться из списка парента.
|
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 10:14 09-09-2015 | Исправлено: KDPoid, 10:16 09-09-2015 |
|
