Узнать название картинки при нажатии на нее.

[AlexMe]

Как узнать название картинки при нажатии на нее?

procedure TForm1.imgClick(Sender: TObject);
begin
ind:=img.Name;
end;

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

[Человек_Борща]

ну как-то так:

ind:=(Sender as TImage).Name;

[ZuBy]

procedure TForm1.imgClick(Sender: TObject);
begin
ind:=Timage(Sender).Name;
end;

[Пепел Феникса]

ind:=Timage(Sender).Name;

лучше через as, так как он проверяет типы.

[AlexMe]

спасибо большое!

[ZuBy]

Сообщение от Пепел Феникса

лучше через as, так как он проверяет типы.

тогда уж так

if (sender is TImage) then
 ind := (sender as TImage).Name;

т.к. (sender as timage) это тоже самое что и timage(sender) проверки на тип нету!

[Пепел Феникса]

это тоже самое что и timage(sender) проверки на тип нету!

для классов есть, и она выбьет исключение если классы несовместимы.

[Аватар]

Сообщение от Пепел Феникса

для классов есть, и она выбьет исключение если классы несовместимы.

Хотелось бы уточнить
Пусть sender не совместим с TImage, но имеет свойство Tag, тогда:

(sender as TImage).Tag:=1 - вывалится в исключение
TImage(sender).Tag:=1 - возможно, а может даже точно выполнится без ошибки

Я правильно понял


Добавил

Проверил - так и получается - второй вариант нормально отработал

Информативно и познавательно

Как раз там о разнице между (sender as TImage) и TImage(sender) ничего нет.

[Человек_Борща]

Информативно и познавательно: http://parsers.info/2009/12/operatory-as-i-is-delphi/

[Пепел Феникса]

Проверил - так и получается - второй вариант нормально отработал

только в том случае если они одинакого расположены в памяти(смещение от начала объекта)
если вы TButton привели к TImage, то именно так и выходит, так как Tag наследован от TControl, который у них общий.