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

← →
Саша У (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]

Спасибо.

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