Автор: RoboSol.
Часто возникают вопросы о работе с массивом компонентов. вот пример того как вывести список имен всех компонентов в приложении.
|
Code: |
|
procedure TForm1.Button1Click(Sender : TObject); {©Drkb v.3(2007): www.drkb.ru} var i : integer; begin ListBox1.Items.Clear; for i:=0 to ComponentCount-1 do ListBox1.Items.Add(Components[i].Name); end; |
для поиска конкретного компонента по его имени используйте метод формы - FindComponent.
для поиска вишестоящего компонента воспользуйтесь функцией - FindGlobalComponent.
Примечание: в Delphi некоторые компоненты сами по себе являются контейнерами компонентов (GroupBox, Panel, PageControl, Form). В этом случаэ контейнер является родителем этих компонентов (Parent), а форма их владельцем (Owner). Для перехода по дочерних компонентах можно воспользоваться свойством Controls родителя компонентов. А для перехода независимо от родителя - используйте свойство Controls формы.
Смена владельца:
свойство Owner - только для чтения, поэтому изменить его нельзя. Владелец устанавливается в ходе создания. Нестоит попросту изменять владельца или имя компонента. Но если есть такая необходимость можно воспользоватся методами: InsertComponent и RemoveComponent самого владельца. Эти методы нельзя применять в обработчике события формы.
Решение задачи:
|
Code: |
|
procedure ChangeOwner( Component, NewOwner : TComponent); begin Component.Owner.RemoveComponent(Component); NewOwner.InsertComponent(Component); end; |
пример использования:
|
Code: |
|
procedure TForm1.ButtonChangeClick(Sender : TObject); begin if Assigned(Button1) then begin Button1.Parent:=Form2; ChangeOwner(Button1. Form2); end; end; |
©Drkb::00359
Взято из https://forum.sources.ru
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!