Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: 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 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.04 c
1-1125981374
vampvamp
2005-09-06 08:36
2005.09.25
Помогите, плиз!


1-1125850566
hgd
2005-09-04 20:16
2005.09.25
Добавить файл на сервер


14-1122216802
Ptr
2005-07-24 18:53
2005.09.25
Ищу работу программиста-стажера на Delphi в Москве


1-1125470477
tyo
2005-08-31 10:41
2005.09.25
Stream read error


1-1125571062
dreamse
2005-09-01 14:37
2005.09.25
Вопрос про TreeView