Свой обработчик ошибок для TImage

[Aslan]

Как написать свой обработчик ошибок для TImage?

[Stilet]

Каких ошибок?

[Квэнди]

application.onexcept

[Aslan]

Спасибо, помогло :-)

В Sender передаётся Form1 вместо Image1 при ошибке, как определить действительный объект вызвавший сбой?

[mihali4]

Sender.ClassName
Sender.InitInstance()
Вообще, посмотрите в хэлпе, набрав SENDER... трудно, что ли?

[Aslan]

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

Sender.ClassName
Sender.InitInstance()
Вообще, посмотрите в хэлпе, набрав SENDER... трудно, что ли?

Не трудно. Я весь хелп облазил.
Sender определяется как Form1, а я знаю что сбой связан с Image1.

[mihali4]

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

Не трудно. Я весь хелп облазил.
Sender определяется как Form1, а я знаю что сбой связан с Image1.

Что за бред?
Сэндер - дословно "посылатель", и им может быть любой объект.
Например, обработчик нажатия на ЛЮБОМ Image из их множества:

procedure TMyForm.SomeImageClick(Sender: TObject);
begin
(Sender as TImage).Left:=(Sender as TImage).Left+100; 
end;

Похоже, вы не в том месте ловите сэндера, или просто неверно это делаете...

[Aslan]

У меня на форме есть два TImage которым я открываю файл JPEG (LoadFromFile...), и если с файлом что-то не то то появляется окно с ошибкой "Scan line index out of range". Хочу перехватить этот момент, сделал как советовали Application.OnExcept, и там Sender = Form1
Может оно и верно, но как определить, что заставило форму генерировать ошибку?
Остаётся только текст сообщения анализировать... только какой из изображений вызвал сбой?

[Sibedir]

Засунь LoadFromFile в try...except...end;

try
  Image1.LoadFromFile ('my.jpg');
except
  ShowMessage ('Не вышно');
end;