[Ankor]

Добрый день, уважаемые специалисты.

Подскажите пожалуйста, как составить код:
Есть у меня на форме 50 Label, и мне надо, чтобы при наводе курсором на любой Label , он менял цвет, например на белый, а при убирании курсора на черный?

Если прописывать цвет в свойстве каждого компонента(MouseMove-MouseLeave), то слишком много придётся писать кода, как можно сократить?

Может через цикл как-то, приведите примерчик пожалуйста.

[angvelem]

Пишешь один обработчик и назначаешь для всех контролов. В обработчике проверяешь свойство Tag контрола.

[Ankor]

Сообщение от angvelem

Пишешь один обработчик и назначаешь для всех контролов. В обработчике проверяешь свойство Tag контрола.

Приведите пример пожалуйста, если не трудно.

[YVitaliy]

Код:

Procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Tlabel(sender).Color:=clred;
end;

[angvelem]

Можно и без Tag-а обойтись.

Код:

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
  (Sender as TLabel).Font.Color := clBlack;
end;

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  (Sender as TLabel).Font.Color := clWhite;
end;

Всем TLabel назначить один код.

[Ankor]

Надо немного по другому, пока ничего не получается:

У меня к примеру 30 картинок Image, и 30 Label напротив них.
Нужно, чтобы при наводе курсора на Image1 - подсвечивался Label1;
на Image2 - подсвечивался Label2;

и т.д , ну а при убирании курсора другой цвет.

Причем картинок и Label будет больше, поэтому видимо через Tag=1 придётся делать(чтобы только нужные менялись), только в коде не соображу никак.

[YVitaliy]

Если компоненты имеют имена типа Label1, Label2,..LabelN и Image1, Image2... то можно обращаться за именем компонента