Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.12.2011, 21:28
Ankor Ankor вне форума
Новичок
 
Регистрация: 19.08.2011
Сообщения: 68
Версия Delphi: XE2, XE3
Репутация: 10
По умолчанию Как правильно минимизировать код

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

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

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

Может через цикл как-то, приведите примерчик пожалуйста.
Ответить с цитированием
  #2  
Старый 23.12.2011, 21:34
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Пишешь один обработчик и назначаешь для всех контролов. В обработчике проверяешь свойство Tag контрола.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
Ankor (23.12.2011)
  #3  
Старый 23.12.2011, 21:36
Ankor Ankor вне форума
Новичок
 
Регистрация: 19.08.2011
Сообщения: 68
Версия Delphi: XE2, XE3
Репутация: 10
По умолчанию

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

Приведите пример пожалуйста, если не трудно.
Ответить с цитированием
  #4  
Старый 23.12.2011, 21:40
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Код:
Procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Tlabel(sender).Color:=clred;
end;
Ответить с цитированием
Этот пользователь сказал Спасибо YVitaliy за это полезное сообщение:
Ankor (23.12.2011)
  #5  
Старый 23.12.2011, 21:44
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Можно и без 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 назначить один код.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
Ankor (23.12.2011)
  #6  
Старый 23.12.2011, 22:01
Ankor Ankor вне форума
Новичок
 
Регистрация: 19.08.2011
Сообщения: 68
Версия Delphi: XE2, XE3
Репутация: 10
По умолчанию

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

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

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

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

Последний раз редактировалось Ankor, 23.12.2011 в 22:07.
Ответить с цитированием
  #7  
Старый 23.12.2011, 22:14
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Если компоненты имеют имена типа Label1, Label2,..LabelN и Image1, Image2... то можно обращаться за именем компонента
Ответить с цитированием
  #8  
Старый 23.12.2011, 22:18
Ankor Ankor вне форума
Новичок
 
Регистрация: 19.08.2011
Сообщения: 68
Версия Delphi: XE2, XE3
Репутация: 10
По умолчанию

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

Ну а как это сделать, я всё пытаюсь узнать? Компоненты и имеют такие имена подряд, чтобы удобней было.
Ответить с цитированием
  #9  
Старый 23.12.2011, 22:20
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Код:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 const img='IMAGE';
       lbl='LABEL';
var n:string;
begin
n:=copy(Tcomponent(sender).Name,6,maxint);
if FindComponent (lbl+n)<>nil then begin
Tlabel(FindComponent (lbl+n)).Color:=clred;
end;
end;
6 - число можно узнать из Length(img), я это упустил, приняв что Image имеют именно такие имена. Если имена иные, то это число будет другое.

Последний раз редактировалось YVitaliy, 23.12.2011 в 22:25.
Ответить с цитированием
  #10  
Старый 23.12.2011, 22:28
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Через ..., но можно и так.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #11  
Старый 23.12.2011, 22:30
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Уменя все всегда работает! И даже так!
Ответить с цитированием
  #12  
Старый 23.12.2011, 22:34
Ankor Ankor вне форума
Новичок
 
Регистрация: 19.08.2011
Сообщения: 68
Версия Delphi: XE2, XE3
Репутация: 10
По умолчанию

Чувствую, быстрее будет для каждой картинки и Label все событи отдельно прописывать, даже если их > 10 000 будет.
Ответить с цитированием
  #13  
Старый 23.12.2011, 22:36
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Что на этот раз не так?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #14  
Старый 23.12.2011, 22:39
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Ну, если у каждой лэйбл должен быть свой оригинальный цвет, то тут ничего не поделаешь-или ч-з таги, или по отдельности.
Ответить с цитированием
  #15  
Старый 23.12.2011, 22:41
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Ну зачем же? Добавить массив цветов и по тагу выбирать из него.
Кстати, поиск я бы организовал так:
Код:
  for I := 0 to ComponentCount - 1 do
    if Components[i] is TLabel then
      if (Components[i] as TLabel).Tag = (Sender as TImage).Tag then
        (Components[i] as TLabel).Font.Color := clWhite;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось angvelem, 23.12.2011 в 22:44.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:14.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025