Наследник TImage: Как узнать что произошёл LoadFromFile?

[ResourceSpace]

Добрый день, всем хороших выходных!

Делаю наследника от TImage.
Можно ли как-то перехватывать вызов TImage.Picture.LoadFromFile(); ? Не соображу как. Мне необходимо делать дополнительные действия после того как оно отработает.
Конечно есть варианты сделать чуть иначе, но хотелось бы узнать возможно ли именно в таком виде.

[Stilet]

Это придется и Picture переопределять. ИМХО по другому никак.

[ResourceSpace]

Вот и я думал-думал полночи... Действие должно относиться только к TImage (связано с его полями, методами и событиями).
Ну допустим сделаю наследника и от TPicture - а как тогда обратно в TImage передавать что TPicture перезагрузилось?

[Stilet]

Этого я не знаю, но как вариант - посмотреть в генофонде Делфи как там сделано, и почитать Тексейру и Пачеко, кажется у них была тема о переопределении классов и подклассов. Возможно будет достаточно написать

type
 TPicture=class(TPicture)
  public
   Procedure LoadFromFile(); override;
 end;
 TImage=class(TImage)
  published
   Picture:TPicture;
 end;
...
Procedure TPicture.LoadFromFile;
begin
 ...
end.

[ResourceSpace]

А всё равно не понимаю - как классу TImage узнать о вызове внутри TPicture?

[Stilet]

Дак в нем есть такое свойство. Не он будет узнавать, ты опишешь фактически новый TImage с новым TPicture. Такой себе кибернетический класс, с имплантом. Твоим имплантом. А в программе тело импланта этого опиши.

[ResourceSpace]

гм... Я давно не брался за Делфи, с тех пор как работу нашёл на другом языке... Но это

Type
      TPicture = Class(Graphics.TPicture)
      Public
            Constructor Create(); OverRide;
            Procedure LoadFromFile(Const Filename: String); OverRide;
            Procedure LoadFromStream(Stream: TStream); OverRide;
            Procedure LoadFromClipboardFormat(AFormat: Word; AData: THandle; APalette: HPALETTE); OverRide;
      End;

меня слегка удивило:

[Error] Unit1.pas(11): Cannot override a static method
[Error] Unit1.pas(12): Cannot override a static method
[Error] Unit1.pas(13): Cannot override a static method
[Error] Unit1.pas(14): Cannot override a static method

Не натыкался на такой фокус...

[Stilet]

Ну в данном случае я не оч. хороший советчик. Всетки поищи у Тексейры как такое правильно делать.

[min@y™]

Как звучит оригинал задания?
Зачем тебе понадобился потомок TImage? Очень сильно пахнет xyz-ом.

[ResourceSpace]

Нет никакого "задания", просто возникла необходимость:
Кто-то или что-то вызывает TImage.Picture.LoadFromFile(); - и после того как это отработает должно автоматом выполняться TImage.AfterLoadFromFile();
Разумеется потомка, не править же исходники VCL?