Как можно создать объект?

← →
ЧиЧиЧи (2006-03-24 21:11) [0]

Мир дому сему! Мастера, подскажите, как можно создать объект?
У меня пустая форма и по нажатии на кнопку нужно чтобы создался TEdit (каждый раз новый). Как это можно сделать? Подскажите пожалуйста!

← →
Гаврила © (2006-03-24 21:14) [1]

var
Edit: TEdit;
begin
Edit:=TEdit.Create(Self);//Создание экземпляра
Edit.Parent:=Self; //Помещение на форму. В данном случае Self - это как раз форма
Edit.Left:=10;//выставлеие координат
Edit.Top:=10;

← →
Хрюша (2006-03-24 21:17) [2]

Спасибо! Гарила, только один вопрос относительно вопроса.
Предположим, ситуация: Объект создан и он в работе. Потом мне нужно его удалить - как это сделать? Использовать Free?

← →
ЧиЧиЧи (2006-03-24 21:17) [3]

← →
Locke © (2006-03-24 21:19) [4]

edit.destroy

← →
ЧиЧиЧи (2006-03-24 21:20) [5]

Спасибо большое!

← →
Гаврила © (2006-03-24 21:32) [6]

> edit.destroy

Все таки, лучше Free
Чем они отличаются - можно узнать, посмотрев реализацию метода Free
(Если указатель на объект не инифиализироваy (Edit = nil), то Free ничего не сделает, а Destroy приведет к ошибке )

← →
ЧиЧиЧи (2006-03-24 21:35) [7]

Гаврила, у меня тут опять вопрос появился: Предположим, что объект существует с указанными координатами, но мне нужно создать дополнительный объект чуть ниже, прибавив значение. выходит, что нужно проверить, что объект с указнными координатами существует и если существует, то создать допаолнительный Edit чуточку ниже. Подскажи пожалуйста :)

> ЧиЧиЧи

информацию о уже существующих объектах ты можешь получить так:

for I:=0 to ComponentCount - 1 do
begin
if (Components[I] is TEdit) then
begin
if (TEdit(Components[I]).Left = 10) and
(TEdit(Components[I]).Top = 10) then
//объект с координатами (10, 10) существует

end

end

← →
ЧиЧиЧи (2006-03-24 22:00) [9]

Больщое спасибо!

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