abstract methods

[NieL]

Столкнулся с проблемой. Написал класс-наследник от TForm в котором присутствуют абстрактные методы. Так вот, хочу сделать чтобы при наследовании от моего класса на этапе компиляции выводитлись Hint, в случае если абстрактный метод не объявлен. С выводом Hint'ов понятно, а как проверить объявлен ли абстрактный метод

[s.Creator]

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

ChildrForm := TChildrForm.Create(Self);

primer.zip

[DelDev]

Так ведь и так компилятор выдает Warning если не перекрыт абстрактный метод?

type
  TNewForm = class(TObject)
  public
    procedure SomeAbstract; virtual; abstract;
  end;

  TNextForm = class(TNewForm)

  end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  with TNextForm.Create do
    SomeAbstract
end;

[DCC Warning] Unit2.pas(36): W1020 Constructing instance of 'TNextForm' containing abstract method 'TNewForm.SomeAbstract'

А при попытке его вызова выскакивает исключение.

[NieL]

Все вопрос решился сам по себе. Спасибо. Тему можно закрывать

[s.Creator]

Сообщение от DelDev

Так ведь и так компилятор выдает Warning если не перекрыт абстрактный метод?

Я про то и говорю, что компилятор ругается при попытке создать объект

TNextForm.Create

А ошибка времени выполнения при попытке выполнения абстрактного метода

SomeAbstract

Но если убрать

  with TNextForm.Create do
    SomeAbstract

то ошибок выдаваться не будет.

[DelDev]

s.Creator,
Опередил мой ответ, потому и говорим об одном.

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