ВикиЧтение

ВикиЧтение

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

Edit

Edit

Массив Edit-компонентов

Procedure DoSomethingWithEditControls;

Var K: Integer;

EditArray: Array[0..99] of Tedit;

begin

Try

For K:= 0 to 99 do begin

EditArray[K]:= TEdit.Create(Self);

EditArray[K].Parent:= Self;

SetSomeOtherPropertiesOfTEdit; {Устанавливаем необходимые свойства TEdit}

Left:= 100; Top:= K*10;

OnMouseMove:= WhatToDoWhenMouseIsMoved; {Что-то делаем при перемещении мыши}

end;

DoWhateverYouWantToDoWithTheseEdits; {Делаем все что хотим с полученным массивом Edit-компонентов}

Finally

For K:= 0to 99do EditArray[K].Free;

end;

Примечание: узнать доступные свойства компонента можно непосредственно в инспекторе объектов и (или) в текстовом режиме вашей формы (щелкните на форме правой кнопкой мыши и выберите пункт View as Text)

Читайте также

И последнее о Komodo Edit

И последнее о Komodo Edit Наговорив столько о достоинствах KE, было бы несправедливо не отметить и недостатки. По большому счёту таковых для меня обнаружилось полтора. Первый — отсутствие встроенного терминала, к которому я привык и в Kate, и в Geany. Впрочем, поскольку я всегда

Edit Mesh (Редактирование поверхности)

Edit Mesh (Редактирование поверхности) Модификатор Edit Mesh (Редактирование поверхности) является одним из ключевых инструментов редактирования геометрии, без которого трудно представить моделирование объектов сложной формы. Кроме непосредственного редактирования, его

Массив Edit-компонентов

Массив Edit-компонентов Procedure DoSomethingWithEditControls;Var K: Integer; EditArray: Array[0..99] of Tedit;begin Try For K:= 0 to 99 do begin EditArray[K]:= TEdit.Create(Self); EditArray[K].Parent:= Self; SetSomeOtherPropertiesOfTEdit; {Устанавливаем необходимые свойства TEdit} Left:= 100; Top:= K*10; OnMouseMove:= WhatToDoWhenMouseIsMoved; {Что-то делаем при перемещении мыши} end;