Тема: Как определить компонент от которого был запущен метод
Показать сообщение отдельно
  #2  
Старый 09.07.2013, 14:11
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
  
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию
Код:
procedure TForm1.ImageClick(Sender: TObject);
begin
Edit1.Text:=(Sender as TImage).name;
end;
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием