Не стОит давать деньги программисту (особенно WINDOWS-программисту), т.к. если ему удастся на них что-нибудь купить , то он вернет Вам 0 (ноль) как результат успешно выполненного действия.
procedure DoSomethingWithEditControls;
var
K: Integer;
EditArray: array[0..99] of Tedit;
begintryfor K := 0 to 99 dobegin
EditArray[K] := TEdit.Create(Self);
EditArray[K].Parent := Self;
{Устанавливаем необходимые свойства TEdit}
SetSomeOtherPropertiesOfTEdit;
Left := 100;
Top := K * 10;
{Что-то делаем при перемещении мыши}
OnMouseMove := WhatToDoWhenMouseIsMoved;
end;
{Делаем все что хотим с полученным массивом Edit-компонентов}
DoWhateverYouWantToDoWithTheseEdits;
finallyfor K := 0 to 99 do
EditArray[K].Free;
end;
end;
Статья Массив Edit-компонентов раздела Компоненты и Классы TEdit может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.