Советы по Delphi. Версия 1.0.6 - Озеров Валентин

Читать онлайн книгу «Советы по Delphi. Версия 1.0.6».

Жанр: Программирование, Книги по IT

Название: Советы по Delphi. Версия 1.0.6

Автор: Озеров Валентин

ISBN: Нет данных

Год: Не указан

Читать онлайн

Советы по Delphi. Версия 1.0.6 - Озеров Валентин — читать книгу онлайн

Страница 46 из 48

Настройте размер и шрифт текста, включите тёмную тему для удобного чтения. Переходить между страницами можно стрелками внизу или сочетанием Ctrl + ← / →.

Перейти на страницу:

Страница 46 из 48

end;

Если компоненты уже присутствуют на форме (в режиме проектирования), сделайте их элементами массива, например так:

leds:= 0;

for counter:= 0 to Form.Componentcount do begin

if (components[counter] is TLED) then begin

inc(leds);

LED[leds]:= TLED(components[counter]);

end

end;

Тем не менее у нас получился массив со случайным расположением LED-компонентов. Я предлагаю назначить свойству Tag каждого LED-компонента порядковый номер его расположения в массиве, а затем заполнить массив, используя это свойство:

for counter := 0 to Form.Componentcount do begin

if (components[counter] is TLED) then begin

LED[Component[counter].tag]:= TLED(components[counter]);

end

end;

Если вам нужен двухмерный массив, то для формирования индекса понадобится другая хитрость, например, хранение в свойстве Hint информации о времени создания компонентов.

Дублирование компонентов и их потомков во время выполнения приложения

Приведенный ниже код содержит функцию DuplicateComponents, позволяющую проводить клонирование любых компонентов и их потомков во время выполнения приложения. Действия ее напоминают операцию копирования/вставки (copy/paste) во время разработки приложения. Новые компоненты при создании получают тех же родителей, владельцев (в случае применения контейнеров) и имена (естественно, несколько отличающихся), что и оригиналы. В данной функции есть вероятность багов, но я пока их не обнаружил. Ошибки и недочеты могут возникнуть из-за редко применяемых специфических методов, которые, вместе с тем, могут помочь программистам, столкнувшимися с аналогичными проблемами.

Данная функция может оказаться весьма полезной в случае наличия нескольких одинаковых областей на форме с необходимостью синхронизации изменений в течение некоторого промежутка времени. Процедура создания дубликата проста до безобразия: разместите на TPanel или на другом родительском компоненте необходимые элементы управления и сделайте: "newpanel := DuplicateComponents(designedpanel)".

uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, IniFiles, TypInfo, Debug;

type TUniqueReader = Class(TReader)

LastRead: TComponent;

procedure ComponentRead(Component: TComponent);

procedure SetNameUnique(Reader: TReader; Component: TComponent; var Name: string);

end;

implementation

procedure TUniqueReader.ComponentRead(Component: TComponent);

begin

LastRead:= Component;

end;

procedure TUniqueReader.SetNameUnique( // Задаем уникальное имя считываемому компоненту, например, "Panel2", если "Panel1" уже существует