Показать сообщение отдельно
  #4  
Старый 25.06.2010, 10:34
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Цитата:
Сообщение от cadil
Я не спрашивал как записать процедуру
Код:
procedure TForm6.Label4Click(Sender: TObject);
- тут вопросов нет.
Проблема в том, чтобы записать условие: "если клик по Label4 выполнен, то ..." Дело в том, что среди свойств и функций компонента Label свойства Click - нет.
Впрочем, эту проблему я уже обошел ...

что значит если клик по Label4? свойства нет есть событие. onClick.
если событие только на этот компонент то и проверять не зачем ибо оно будет возникать только для этого компонента.
если у вас на все label стоит одно и тоже событие то обрабатывайте входящий параметр Sender например так:

Код:
if (sender as TComponent).Name='Label3' then чегото делаем.
if (sender as TComponent).Name='Label4' then чегото делаем.
Ответить с цитированием