[YVitaliy]

Просто у мня в Delphi7 нет обработчика MouseLeave лля TImage (и вообще), так бы пример организовал.

Кстати, поиск я бы организовал так:

И я тоже

[angvelem]

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

Просто у мня в Delphi7 нет обработчика MouseLeave лля TImage (и вообще)...

Добавь, несложно.

[Ankor]

Покажите пожалуйста на моём приемере, как сделать, чтобы при наводе на Image с 1 по 10, соответствующий Label менял цвет(на clred), а с 11 по 16 - на clgreen?
При уводе курсора на обратный цвет.

[YVitaliy]

Да мне лично и не нужно, а для примера модифицированный модуль ExtCtrls придется добавлять, потом заменять, а мож у него не та версия дельфи и тд и тп...

[angvelem]

Я имел в виду, добавь локально. Для отдельной программы.

[YVitaliy]

Но тогда придется вручную для каждого контрола применять...
Пример тока для MouseMove по понятным причинам) Тоесть два примера.
PS. У меня тока Borland Delphi7, так что свойства Application.MainFormOnTaskbar нет, я его закомментировал.

[angvelem]

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

Покажите пожалуйста на моём приемере...

Лови пример.

[YVitaliy]

И не забудь, что Tag-и у соответствующего изображения и лэйбл должны быть идентичны.

[Ankor]

А как нужно в событии - (procedure TForm1.Image1MouseLeave(Sender: TObject); ) прописать код?

Код:

procedure TForm1.Image1MouseLeave(Sender: TObject);
const img='Image';
       lbl='Label';
var n:string;
pos:integer;
begin
pos:=length(img)+1;
n:=copy(Tcomponent(sender).Name,pos,maxint);
if FindComponent (lbl+n)<>nil then begin
Tlabel(FindComponent (lbl+n)).Color:=clRed;
end;
end;

Так только верхняя строка на красный меняется, как сделать, чтобы все строчки соответствующе работали?

[angvelem]

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

И не забудь, что Tag-и у соответствующего изображения и лэйбл должны быть идентичны.

В примере я уже всё проставил. Хотя по-хорошему, проще назначить обработчик для одного TImage, а в OnCreate формы остальным присвоить его же, но это только в том случае, если на форме нет других TImage, для других целей.

[angvelem]

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

Так только верхняя строка на красный меняется, как сделать, чтобы все строчки соответствующе работали?

Мой пример не подошёл?

[YVitaliy]

В примере я уже всё проставил. Хотя по-хорошему, проще назначить обработчик для одного TImage, а в OnCreate формы остальным присвоить его же, но это только в том случае, если на форме нет других TImage, для других целей.

Тут-то на сцене и появляется обращение за именем!
Хм...Или за тагом...


А в чьем примере, действительно?

[YVitaliy]

А как нужно в событии - (procedure TForm1.Image1MouseLeave(Sender: TObject); ) прописать код?

Выделяешь все имаги (с шифтом), на Обжект инспекторе в вкладке Events вибираем для OnMouseLeave - Image1MouseLeave (если есть таковой)

[Ankor]

Всем огромное спасибо, особенно за пример angvelem!

Подошел пример от angvelem.

Работает так как надо, видимо плохо я излогал задачу изначально!
Всё работает.

[Dark King]

Создай процедуру которая меняет цвет label-а.
И в обрабодчике OnMouseMove запускай её.