Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как можно создать объект? [D7, XP]

ЧиЧиЧи © (2006-03-24 21:11:00)
Мир дому сему! Мастера, подскажите, как можно создать объект?
У меня пустая форма и по нажатии на кнопку нужно чтобы создался TEdit (каждый раз новый). Как это можно сделать? Подскажите пожалуйста!

ЧиЧиЧи (2006-03-24 22:00:00) [1]
Больщое спасибо!

Гаврила (2006-03-24 21:54:00) [2]

> ЧиЧиЧи

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

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 21:35:00) [3]
Гаврила, у меня тут опять вопрос появился: Предположим, что объект существует с указанными координатами, но мне нужно создать дополнительный объект чуть ниже, прибавив значение. выходит, что нужно проверить, что объект с указнными координатами существует и если существует, то создать допаолнительный Edit чуточку ниже. Подскажи пожалуйста :)

Гаврила (2006-03-24 21:32:00) [4]

> edit.destroy

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

ЧиЧиЧи (2006-03-24 21:20:00) [5]
Спасибо большое!

Locke (2006-03-24 21:19:00) [6]
edit.destroy

Хрюша (2006-03-24 21:17:00) [7]
Спасибо! Гарила, только один вопрос относительно вопроса.
Предположим, ситуация: Объект создан и он в работе. Потом мне нужно его удалить - как это сделать? Использовать Free?

ЧиЧиЧи (2006-03-24 21:17:00) [8]
Спасибо! Гарила, только один вопрос относительно вопроса.
Предположим, ситуация: Объект создан и он в работе. Потом мне нужно его удалить - как это сделать? Использовать Free?

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »