| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как правильно сделать одинаковые обработчики для нескольких компо

Саша У ©   (2005-08-13 19:08:00) 

Например:
procedure TForm1.Label1Click(Sender: TObject);
begin
//....
//здесь еще код
Label1.Font.Color := clRed;
end;А если на форме 100 лабелов, можно сделать как-нибудь так?

procedure ChangeColor;
begin
//.....
//здесь еще код, одинаковый для всех 100лабелов
Sender.Font.Color := clRed;  // как в процедуру передать?
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
ChangeColor;
end;

---

Саша У   (2005-08-13 19:24:00) [1]

Спасибо.

---

Anatoly Podgoretsky   (2005-08-13 19:12:00) [2]

Делать не надо, достаточно назначить один нескольким и использовать Sender c приведением типа.
procedure TForm1.Label1Click(Sender: TObject);
begin
 (Sender as TLabel).Font.Color := clRed;
end;

---

Наверх