Скачать: CL | DM;

Как создать динамич. массив TEditов?   Найти похожие ветки 

← →
dimanew   (2002-07-17 04:45) [0]

Как создать динамич. массив TEditов?

---

← →
Юрий Зотов ©   (2002-07-17 09:01) [1]

var
Edits: array of TEdit;

...
// Добавление нового элемента
SetLength(Edits, Length(Edits) + 1);
Edits[High(Edits)] := TEdit.Create(...);
...
// Работа с элементом
Edits[i]. Text := "..."
...
// Уничтожение всех элементов и самого массива
for i := Low(Edits) to High(Edits) do Edits[i].Free;
Edits := nil;

---

← →
Rem ©   (2002-07-17 09:50) [2]

Создание Edit"ов на форме:

procedure TFrom1.Button1Click(Sender: TObject);
begin
// создание нового Edita
with TEdit.Create(Self) do
begin
Parent := Self;
// Установка параметров: размеров, текста, имени...
end;
// ... в том же духе
end;

а удалятся они сами...

Свойство Parent определяет компонент, на котором будет отображаться Edit

---

← →
Виктор Щербаков ©   (2002-07-17 09:52) [3]

> а удалятся они сами...

Как это сами?

---

← →
VAleksey ©   (2002-07-17 10:13) [4]

Мужики, вопроса про "удалять" не было ! Чего это вы ? :))
Вот спросит про удалить. Тогда и ответите Когда сами удаляться, а когда и "не сами".

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c