Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как перебрать программно все TLabel в групбоксе? / 11 сообщений из 11, страница 1 из 1
19.09.2019, 10:47
    #39863770
svnvlad
svnvlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
Есть 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:52
    #39863776
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
ControlCount
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2019, 11:02
    #39863782
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
и соответственно не Components[i], а Controls[i]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2019, 11:04
    #39863784
svnvlad
svnvlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
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:05
    #39863786
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
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:06
    #39863787
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
svnvladЧем же Components от Controls отличается?
Буквами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2019, 11:17
    #39863801
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2019, 15:31
    #39864038
s62
s62
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
svnvladЧем же Components от Controls отличается?
Есть два понятия: владелец (owner) и родитель (parent). Владелец компонента, когда вызывают его деструктор, удалит и все компоненты, которыми владеет. Владелец (owner) всех компонентов на форме - форма.
Родитель - это то, на чем визуально расположен элемент управления.
Свойство TComponent.Components перечисляет все компоненты, которыми владеет данный компонент. Свойство TWinControl.Controls перечисляет все элементы управления, которые являются детьми (child controls) по отношению к данному оконному элементу управления.
Ваш GroupBox является родителем (parent) для лейблов, но не владельцем (owner). Владелец - форма, на которой всё это. Соответственно, лейблы перечислены в свойстве Controls групбокса и в свойстве Components формы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2019, 16:52
    #39864081
Док
Док
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
s62Свойство TComponent.Components перечисляет все компоненты, которыми владеет данный компонент. Свойство TWinControl.Controls перечисляет все элементы управления, которые являются детьми (child controls) по отношению к данному оконному элементу управления.
наконец-то, и я узнал :)

svnvladЗадача стоит перебрать все лейблы
можно использовать InheritForm
Код: pascal
1.
2.
if AGroupBox.Controls[i].InheritForm(TLabel) then
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2019, 19:00
    #39864177
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все 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.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, 20:26
    #39864213
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать программно все TLabel в групбоксе?
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как перебрать программно все TLabel в групбоксе? / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 761ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2039030]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 455ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 240ms
total:  761ms
x
x
Закрыть


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