Форум: "Начинающим";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];
ВнизГоспода, подскажите плз как програмно убрать с формы Найти похожие ветки
← →
smartleds (2007-10-05 20:50) [0]компонент edit.
У меня при каждом нажатии кнопки button3 на форме появляется окно edit, соответственно в массиве ArrOfEdit:array of TEdit; добавляется один компонент.
Теперь нужно сделать чтобы при нажатии на другую кнопку последние окно edit удалялось. Как из массива удалить я понял , а как с формы?
Вот часть кода для создания окон Edit
procedure TForm1.Button3Click(Sender: TObject);
begin
i:=i+1;
SetLength(ArrOfEdit, Length(ArrOfEdit)+1);
ArrOfEdit[High(ArrOfEdit)]:=TEdit.Create(self);
ArrOfEdit[i-1].Parent:=Form1;
ArrOfEdit[i-1].Width:=40;
ArrOfEdit[i-1].Height:=20;
ArrOfEdit[i-1].Left:=X1;
ArrOfEdit[i-1].Top:=Y1;
X1:=X1+80;
end;
← →
Leonid Troyanovsky © (2007-10-05 21:00) [1]
> smartleds (05.10.07 20:50)
> компонент edit.
Компонент edit убирается с формы (или, во-ще, убирается)
путем простого Free.
Остальные проблемы его уже не касаются.
--
Regards, LVT.
← →
smartleds (2007-10-05 21:19) [2]что-то ошибку дает, так пытаюсь
ArrOfLabel[High(ArrOfEdit)]:=TEdit.free;
SetLength(ArrOfEdit, Length(ArrOfEdit)-1);
← →
Плохиш © (2007-10-05 21:21) [3]
> ArrOfLabel[High(ArrOfEdit)]:=TEdit.free;
Это где такой синтаксис описан и у какого языка?
← →
Anatoly Podgoretsky © (2007-10-05 21:21) [4]> smartleds (05.10.2007 21:19:02) [2]
К Борману
← →
smartleds (2007-10-05 21:32) [5]Всем большое спасибо , понял вот так надо.
ArrOfLabel[High(ArrOfLabel)].Free;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c