Mouse Move и Live у 20-ти лэйблов

[Marsel737]

Всем привет!

У меня есть 20 лэйблов на форме, нужно чтоб при наведении курсора на любой из них менялся его цвет, а при отведении снова менялся на стандартный.

Прописывать для каждого лэйбла Nouse Mov и Mouse Leave по отдельности слишком муторно, поэтому я все лэйблы засунул в массив, а что делать дальше не знаю. Подскажите пожалуста как быть.

В тамйер записал:

for i:=1 to 20 do
if LabelA[i].OnMouseLeave then Labela[i].Font.Color:=clGreen;

Нада ещё указать параметр, потому что так не катит, а вот какой параметр?

[raxp]

не нужно в массив и таймер, объедините их под общими событиями, например так:

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 (sender as tlabel).font.color:= clgreen
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
 (sender as tlabel).font.color:= clblack
end;

[Marsel737]

raxp, не получается так как вы говорите, только тот лэйбл и реагирует, например в Label2 как в вашем коде, а остальные нет.

И ещё, если даже это заработает, то как быть если на форме кроме 20 лэйблов, которые должны менять цвет есть и те которые не должны меняться?

[Neeter]

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

label.onClick := Label2MouseMove;

[evg_m]

только тот лэйбл и реагирует, например в Label2 как в вашем коде, а остальные нет.

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 (sender as tlabel).font.color:= clgreen
end;

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
for i:=1 to 20 do
Labela[i].Font.Color:=clGreen;
end;

[raxp]

raxp, не получается так как вы говорите, только тот лэйбл и реагирует, например в Label2 как в вашем коде, а остальные нет.

И ещё, если даже это заработает, то как быть если на форме кроме 20 лэйблов, которые должны менять цвет есть и те которые не должны меняться?

еще раз обращаю ваше внимание на (это важно)

объедините их под общими событиями

см. скрин (левая группа под общими, правая сама по себе), проект во вложении

[Marsel737]

Neeter, я что-то не допонял, это разве не при нажатии?

label.onClick := Label2MouseMove;

А мне нужно при наведении курсора на Label

[mihali4]

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

raxp, не получается так как вы говорите, только тот лэйбл и реагирует, например в Label2 как в вашем коде, а остальные нет.

И ещё, если даже это заработает, то как быть если на форме кроме 20 лэйблов, которые должны менять цвет есть и те которые не должны меняться?

raxp просто понадеялся на вашу смекалку
Эти обработчики (для Label2) назначьте всем лэйблам, которые должны менять цвет. Делается это в инспекторе объектов - выберите для нужных лэйблов Label2MouseLeave и Label2MouseEnter (я предлагаю это событие использовать вместо Label2MouseMove).

[Neeter]

Neeter, я что-то не допонял, это разве не при нажатии?

label.onClick := Label2MouseMove;

Поторопился, но не видно что ли где ошибка?

label.onMouseMove := Label2MouseMove;

А вообще, mihali4 прав. Я думал вы динамически создаете лейблы.

[Marsel737]

raxp, спасибо большое, теперь понял, да и вообще всем спасибо за столь активноую мне помощь