Как сделать Массив объектов?
Подскажите пожалуйста.
У меня на форме есть ControlBar. В него засунул Panel, ActionToolBar, Edit и пр.
Нужно организовать цикл из всех элементов которые нахдятся в ControlBar и изменить у них
всех или определенных какое либо свойство.
Так-же хотлось бы узнать как сделать массив из объектов.
p.s. Надеюсь на скорейший ответ. Заранее спасибо.
У меня на форме есть ControlBar. В него засунул Panel, ActionToolBar, Edit и пр.
Нужно организовать цикл из всех элементов которые нахдятся в ControlBar и изменить у них
всех или определенных какое либо свойство.
Так-же хотлось бы узнать как сделать массив из объектов.
p.s. Надеюсь на скорейший ответ. Заранее спасибо.
Уже всё давно написано - TList и его разновидности: TObjectList, TStringList, TImageList и пр... Вот тебе TObjectList - самое оно.
Только я не пойму задачи... "Нужно организовать цикл из всех элементов которые нахдятся в ControlBar и изменить у них всех или определенных какое либо свойство." Чем-то чую, что лишнее всё это... В сущности, контролы любого контрола уже находятся в списке (свойство Controls).
Только я не пойму задачи... "Нужно организовать цикл из всех элементов которые нахдятся в ControlBar и изменить у них всех или определенных какое либо свойство." Чем-то чую, что лишнее всё это... В сущности, контролы любого контрола уже находятся в списке (свойство Controls).
Посмотри на сайте делфиворлд в разделе "компоненты"...
Обойти все контролы можно так, как сказал mfender, массив объектов можно реализовать и так:
Код:
mas : array [0..10] of TObject;
Цитата: wishco
Подскажите пожалуйста.
У меня на форме есть ControlBar. В него засунул Panel, ActionToolBar, Edit и пр.
Нужно организовать цикл из всех элементов которые нахдятся в ControlBar и изменить у них
всех или определенных какое либо свойство.
Так-же хотлось бы узнать как сделать массив из объектов.
p.s. Надеюсь на скорейший ответ. Заранее спасибо.
У меня на форме есть ControlBar. В него засунул Panel, ActionToolBar, Edit и пр.
Нужно организовать цикл из всех элементов которые нахдятся в ControlBar и изменить у них
всех или определенных какое либо свойство.
Так-же хотлось бы узнать как сделать массив из объектов.
p.s. Надеюсь на скорейший ответ. Заранее спасибо.
Код:
for n:=0 to ControlBar.controlcount do
if ControlBar.controls[n] is TBoton
then (ControlBar.controls[n] as TBoton).caption:=.......
else if ControlBar.controls[n] is .....
if ControlBar.controls[n] is TBoton
then (ControlBar.controls[n] as TBoton).caption:=.......
else if ControlBar.controls[n] is .....
Сзаранее извеняюсь за ошибки в названиях, без Delphi пишу.
А если делать именно массив, то как сказал mfender, с помощью TObjectList.