Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Какой язык программирования вы используете ?
ASP
Delphi
C/C++
Basic
PHP
Pascal
Java
Другой
Результаты
Другие опросы
Всего голосов:
1968
Комментарии:
10
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Массив 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
;
OnMouseMove:= WhatToDoWhenMouseIsMoved; {Что-то делаем при перемещении мыши}
end;
DoWhateverYouWantToDoWithTheseEdits; {Делаем все что хотим с полученным массивом Edit-компонентов}
Finally
For K:= 0 to 99 do EditArray[K].Free;
end;
Примечание:
узнать доступные свойства компонента можно непосредственно в инспекторе объектов и (или) в текстовом режиме вашей формы (щелкните на форме правой кнопкой мыши и выберите пункт View as Text)
Разместил:
admin
| | Прочитано: 40624 | |
Смотрите также связанные новости
27.11.2024 -
Кроссворд на Delphi
27.11.2024 -
Рождение, жизнь и гибель формы
27.11.2024 -
Воспроизводим Flash-файл в своем приложении
27.11.2024 -
Работа с потоками в Delphi
27.11.2024 -
SQL-запросы в Delphi
27.11.2024 -
BlobField как Bitmap
27.11.2024 -
Запись и чтение чисел в BLOB-поле
Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Массив
Edit-компонентов
Обработка
массива
Edit-компонентов
КодProcedure
DoSomethingWithEditControls
Integer
EditArray
Array[0
Tedit
begin
EditArray[K]
TEdit
Create
Self
Parent
SetSomeOtherPropertiesOfTEdit
{Устанавливаем
необходимые
свойства
TEdit}
Left
OnMouseMove
WhatToDoWhenMouseIsMoved
{Что-то
делаем
при
перемещении
мыши}
DoWhateverYouWantToDoWithTheseEdits
{Делаем
все
что
хотим
полученным
массивом
Edit-компонентов}
Finally
Free
Примечание
узнать
доступные
компонента
можно
непосредственно