Как получить список контролов

← →
PavelP (2005-05-23 15:52) [0]

Я пмшу компонент потомок TPanel.Каким образом мне получить список контролов, которые лежат на моём компоненте, как толь-ко они будут загружены из DFM файла.

← →
Reindeer Moss Eater © (2005-05-23 15:56) [1]

property Controls[Index: Integer]: TControl;

← →
Reindeer Moss Eater © (2005-05-23 15:57) [2]

property ControlCount: Integer;

← →
PavelP (2005-05-23 16:15) [3]

TMyPanel = class(Tpanel)
private
FScroolBar: TScrollBar;
FStatusBar: TStatusBar;
FCount: Integer;
....
constructor TMyPanel.Create(AOwner: TComponent);
begin
FScroolBar := TScrollBar.Create(self);
FScroolBar.Parent := self;
FStatusBar := TStatusBar.Create(self);
FStatusBar.Parent := self;
FCount := ComponentCount;
end;
FCount := 2, т. к. другие компоненты ёщё не созданы,

← →
Reindeer Moss Eater © (2005-05-23 16:21) [4]

И что?
Должно быть по другому?

← →
PavelP (2005-05-23 16:25) [5]

Не должно. Вопрос как получить список?

← →
Reindeer Moss Eater © (2005-05-23 16:27) [6]

Спроси лучше КОГДА получить список.
Потому что как получить список тебе уже ответили.

← →
PavelP (2005-05-23 16:29) [7]

Когда ?

← →
Reindeer Moss Eater © (2005-05-23 16:30) [8]

В методе Loaded

← →
PavelP (2005-05-23 16:35) [9]

procedure TMyPanel.Loaded;
begin
inherited Loaded;
FCount := ComponentCount;
end;
Положил на панель 4 кнопки. FCount := 2 :(

← →
Reindeer Moss Eater © (2005-05-23 16:37) [10]

Он у тебя перекрывает наследуемый метод loaded.

← →
Reindeer Moss Eater © (2005-05-23 16:39) [11]

Либо просто собрать все заново c build all

← →
PavelP (2005-05-23 16:40) [12]

TMyPanel = class(Tpanel)
private
FScroolBar: TScrollBar;
FStatusBar: TStatusBar;
FCount: Integer;
protected
procedure Loaded; override;
....

← →
Reindeer Moss Eater © (2005-05-23 16:43) [13]

procedure TMyPanel.Loaded;
begin
inherited Loaded;
FCount := ComponentCount;
ShowMessage(IntToStr(ComponentCount));
end;

← →
Reindeer Moss Eater © (2005-05-23 16:45) [14]

Да. Кстати.
Ты не сам ли вызываешь loaded?
Если сам - то ты не прав очень.

← →
PavelP (2005-05-23 16:45) [15]

← →
Reindeer Moss Eater © (2005-05-23 16:46) [16]

[14] [11]

← →
PavelP (2005-05-23 16:48) [17]

Билдел. Не вызываю. При помощи отладчика вижу, что создаётся столько кнопок, сколько надо. А процедуре Loaded ComponentCount
:= 2 :(

Так не бывает.

Правдоподобное объяснение - издержки тестирования недописанного компонента, который уже зарегистрирован в палитре.

Ну и еще один вопрос.
Сам экземпляр панели создается тоже вызовом конструктора в раентайме?

← →
PavelP (2005-05-23 17:00) [20]

Вообще-то панель уже в палитре. А это критично?

Если в палитре, значит она в каком-то dpk.
И соответствующий ему bpl не обязательно пересобирается при изменении кода панели.
То есть пишется один код, а реально выполняется другой.

Э-э-э... уважаемые участники, а при чем же тут ComponentCount?

Все компоненты, положенные в design-time имеют владельцем форму, даже если их и клали на панели или еще куда. Поэтому ComponentCount для панели будет равен нулю (в данном случае он равен 2 лишь потому, что два компонента создаются кодом конструктора и имеют владельцем панель - cм. [3]).

Правильные ответы - [2] и [8].

ComponentCount - это мой копи-пасте.
Конечно же Controls и СontrolCount.

← →
PavelP (2005-05-23 17:08) [24]

Я компилю MYPanel.dpk . Mypanel.bpl пересобирается. По крайней мере дата у файла изменяется.

← →
PavelP (2005-05-23 17:10) [25]

Всем спасибо! Действительно ControlCount.

Как получить список контролов Найти похожие ветки