Узнать, что объекта уже нет , на который ссылается свойство

Например:

private
  FListBox:TListBox; // "ссылаемся" на ListBox
...
published
  property ListBox:TListBox read FListBox;
....

Теперь ставим компонент, тестим. кладем на форму парочку ListBox`ов, затем начинаем их выбирать в property ListBox компонента - все прекрасно . Но вот, оставив, "заполненое" свойство, щелкаем по ListBoх`у, нажимаем Del. ListBox удаляется, как ему и положено, но если компонент имел ссылку на только что удаленный ListBox, то среда подвисает, если обратиться к компоненту, например, просто выделить его. Пишет как всегда

Цитата

Access Violation at address .... in rtlВерсияDelphi0.bpl

.

т к объект не создаются в компоненте, а выбирается из существующих, поэтому я явно его не удаляю нигде....


И как с этом чудом бороться?

Стандартный метод - переопределяем Notification:

private
  FListBox:TListBox; // "ссылаемся" на ListBox
...
protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
...
published
  property ListBox:TListBox read FListBox;
....
 
implementation
...
procedure TMyControl.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
 
  if (Operation = opRemove) then
  begin
    if (AComponent = FListBox) then
      FListBox := nil;
  end;
end;

Цитата s-mike @ 21.07.05, 23:47

if (AComponent = FListBox) then
FListBox := nil;

Может, заменить на
AComponent:=nil
?

Цитата Miscђka @ 22.07.05, 02:26

Может, заменить на
AComponent:=nil
?

А что это даст?

Погоди, я немного не догоняю после вчерашнего. Надо разобраться.
AComponent:=nil в данном случае это не то же самое, что FListBox:=nil. Т.е. если я обнуляю AComponent, обнуляется ли при этом FListBox?

Цитата Miscђka @ 22.07.05, 07:52

Т.е. если я обнуляю AComponent, обнуляется ли при этом FListBox?

Miscђka, удивляешь. AComponent, FListBox - ссылки на компоненты. Обниление одной ссылки не означает обниление другой. Тем более, что они могут быть не равны. Notification вызывается Owner'ом при добавлении/освобождении компонента.

Цитата s-mike @ 21.07.05, 23:47

Стандартный метод - переопределяем Notification:

Спасибо, не знал....

Цитата s-mike @ 22.07.05, 09:01

Miscђka, удивляешь

перепил вчера, - у друга сын родился.
Не сообразил сразу, как передается переменная AComponent.

SPrograMMer

Кстати, та толстая книжка, что лежит в коробке вместе с дисками дельфи как раз и объясняет
многие вещи, в том числе для чего нужно переопределять Notification. Но у этой книжки два недостатка:
1. Она во многом повторяет хелп.
2. Она на англ. языке.