В теме сабжа смысла передать не удалось, попробую объяснить в описании.

У меня есть класс-потомок
. Я хочу, чтобы на нём можно было размещать компоненты только типа
.

Что я делаю...

Переопределяю метод
, если
не того класса, я вызываю
.

На практике чужой компонент не добавляется и вызывает Exception, однако при дальнейшей компиляции вызываются какие-то внутренние ошибки.

Вопрос... как корректно запрещать добавлять "ненужные" компоненты?

Заранее спасибо.

Покажи код.

А зачем эксепшн? Сообщение нельзя?

Что-то я, видно, не совсем сабдж понял? Или что-то в таком роде:



?

> Kolan ©   (15.12.07 16:54) [1]

сообщение - не выход; нужно чтобы компонент не добавлялся.

> Джо ©   (15.12.07 18:13) [2]

ооо! спасибо, помогло!

главное отличие этого кода от моего состоит в том, что
я вызывал только в удачном случае. Ещё раз спасибо! тема закрыта.

Зачем перекрывать Notification, если специально для сабжа существует ValidateInsert? Его и надо перекрывать.

> Переопределяю метод Notification, если AComponent не того
> класса, я вызываю Exception.


> procedure TDataModule2.Notification(AComponent: TComponent;
>
> Operation: TOperation);
> begin
> inherited;
>
> if (AComponent <> Self) and (Operation = opInsert) then
> begin
>   if not (AComponent is TXXX) then
>     raise Exception.Create('Only TXXX can be placed here')
> ;
> end;
> end;



> ооо! спасибо, помогло!


Не пойму где отличие сабжа от кода Джо, по моему просто 1 к 1 написано сос слов, в чем проблемма была?

> [5] Kolan ©   (17.12.07 14:44)

В [3] же он "нарисовал" в чем была его ошибка :) inherited - "не в то время и не в том месте")