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

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

← →
ЧиЧиЧи   (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]

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

---

← →
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 чуточку ниже. Подскажи пожалуйста :)

---

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

> ЧиЧиЧи  

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

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]

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

---

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

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



Память: 0.47 MB
Время: 0.051 c