ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как перебрать программно все TLabel в групбоксе?
11 сообщений из 11, страница 1 из 1
Как перебрать программно все TLabel в групбоксе?
    #39863770
svnvlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svnvlad
Участник
Есть GroupBox типа TcxGroupBox. На ней несколько TLabel.
Задача стоит перебрать все лейблы и выбранную пометить ярким цветом, остальные серым.
Делаю так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure HighlightStateView(AGroupBox: TcxGroupBox; ALabel: TLabel);
var
  i: integer;
begin
  for i := 0 to AGroupBox.ComponentCount - 1 do
    begin
      if (AGroupBox.Components[i] is TLabel) then
        begin
          if ((AGroupBox.Components[i] as TLabel) = ALabel) then
            DisplayLbState((AGroupBox.Components[i] as TLabel), 2) // Отображает ярким цветом
          else
            DisplayLbState((AGroupBox.Components[i] as TLabel), 1) // Отображает серым цветом
        end;
    end;
end;


Но при отладке получается, что AGroupBox.ComponentCount равно нулю.
...
Рейтинг: 0 / 0
19.09.2019, 10:47
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39863776
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
ControlCount
...
Рейтинг: 0 / 0
19.09.2019, 10:52
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39863782
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
и соответственно не Components[i], а Controls[i]
...
Рейтинг: 0 / 0
19.09.2019, 11:02
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39863784
svnvlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svnvlad
Участник
DimaBrControlCount
Спасибо! Так заработало:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure HighlightStateView(AGroupBox: TcxGroupBox; ALabel: TLabel);
var
  i: integer;
begin
  for i := 0 to AGroupBox.ControlCount - 1 do
    begin
      if (AGroupBox.Controls[i] is TLabel) then
        begin
          if ((AGroupBox.Controls[i] as TLabel) = ALabel) then
            DisplayLbState((AGroupBox.Controls[i] as TLabel), 2)
          else
            DisplayLbState((AGroupBox.Controls[i] as TLabel), 1)
        end;
    end;
end;


Чем же Components от Controls отличается?
...
Рейтинг: 0 / 0
19.09.2019, 11:04
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39863786
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
svnvladDimaBrControlCount
Спасибо! Так заработало:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure HighlightStateView(AGroupBox: TcxGroupBox; ALabel: TLabel);
var
  i: integer;
begin
  for i := 0 to AGroupBox.ControlCount - 1 do
    begin
      if (AGroupBox.Controls[i] is TLabel) then
        begin
          if ((AGroupBox.Controls[i] as TLabel) = ALabel) then
            DisplayLbState((AGroupBox.Controls[i] as TLabel), 2)
          else
            DisplayLbState((AGroupBox.Controls[i] as TLabel), 1)
        end;
    end;
end;



Чем же Components от Controls отличается?
Не только лишь все компоненты контролы.
...
Рейтинг: 0 / 0
19.09.2019, 11:05
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39863787
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
svnvladЧем же Components от Controls отличается?
Буквами
...
Рейтинг: 0 / 0
19.09.2019, 11:06
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39863801
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
...
Рейтинг: 0 / 0
19.09.2019, 11:17
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39864038
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
s62
Участник
svnvladЧем же Components от Controls отличается?
Есть два понятия: владелец (owner) и родитель (parent). Владелец компонента, когда вызывают его деструктор, удалит и все компоненты, которыми владеет. Владелец (owner) всех компонентов на форме - форма.
Родитель - это то, на чем визуально расположен элемент управления.
Свойство TComponent.Components перечисляет все компоненты, которыми владеет данный компонент. Свойство TWinControl.Controls перечисляет все элементы управления, которые являются детьми (child controls) по отношению к данному оконному элементу управления.
Ваш GroupBox является родителем (parent) для лейблов, но не владельцем (owner). Владелец - форма, на которой всё это. Соответственно, лейблы перечислены в свойстве Controls групбокса и в свойстве Components формы.
...
Рейтинг: 0 / 0
19.09.2019, 15:31
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39864081
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
s62Свойство TComponent.Components перечисляет все компоненты, которыми владеет данный компонент. Свойство TWinControl.Controls перечисляет все элементы управления, которые являются детьми (child controls) по отношению к данному оконному элементу управления.
наконец-то, и я узнал :)

svnvladЗадача стоит перебрать все лейблы
можно использовать InheritForm
Код: pascal
1.
2.
if AGroupBox.Controls[i].InheritForm(TLabel) then
...
...
Рейтинг: 0 / 0
19.09.2019, 16:52
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39864177
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
А так будет еще лучше
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure HighlightStateView(AGroupBox: TcxGroupBox; ALabel: TLabel);
var
  i: integer;
begin
  for i := 0 to AGroupBox.ControlCount - 1 do
    begin
      if AGroupBox.Controls[i] is TLabel then
        begin
          if AGroupBox.Controls[i] = ALabel then
            DisplayLbState(TLabel(AGroupBox.Controls[i]), 2)
          else
            DisplayLbState(TLabel(AGroupBox.Controls[i]), 1)
        end;
    end;
end;
...
Рейтинг: 0 / 0
19.09.2019, 19:00
| Ответить | Цитировать | Написать  
Как перебрать программно все TLabel в групбоксе?
    #39864213
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
procedure HighlightStateView(AGroupBox: TcxGroupBox; ALabel: TLabel);
var i: integer;
begin
  for i := 0 to AGroupBox.ControlCount - 1 do
    if AGroupBox.Controls[i] is TLabel then
      DisplayLbState(TLabel(AGroupBox.Controls[i]), AGroupBox.Controls[i] = ALabel);
end;
...
Рейтинг: 0 / 0
19.09.2019, 20:26
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как перебрать программно все TLabel в групбоксе?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39864177&tid=2039030]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 88ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 252ms
total:  452ms
созд. / загр.: 452ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]