Среда, 18.06.2025, 13:17
Приветствую Вас Гость | RSS
Меню сайта
fff
  • Индексация
  • Девочки
    Форма входа
    Категории раздела
    Теория алгоритмов [3]
    Теория алгоритмов
    Code Snippets [1]
    Code Snippets
    Все о PHP [20]
    Все о PHP
    Visual C++ [13]
    Visual C++
    WIN32 API [7]
    WIN32 API
    Delphi [72]
    Delphi
    ASP [2]
    ASP
    Java [67]
    Java
    VBScript [6]
    VBScript
    CGI [2]
    CGI
    VRML [2]
    VRML
    PERL [9]
    PERL
    HTML [4]
    HTML
    XML [10]
    XML
    Архив записей

    Статьи по Оптимизации

    ПРОГРАММИРОВАНИЕ! СОЗДАНИЕ САЙТОВ И ИХ ОПТИМИЗАЦИЯ

    Главная » Статьи » Программирование » Delphi

    Массив 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:= 0 to 99 do EditArray[K].Free;
    end;

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

    Категория: Delphi | Добавил: Merlin (07.12.2009)
    Просмотров: 433 | Рейтинг: 0.0/0
    Всего комментариев: 0
    Имя *:
    Email *:
    Код *: