Скачать: CL | DM;

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

← →
Саша У   (2005-08-13 19:08) [0]

Например:
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;

---

← →
Anatoly Podgoretsky ©   (2005-08-13 19:12) [1]

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

---

← →
Саша У   (2005-08-13 19:24) [2]

Спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c