| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

как удалить компонент? [D6]

Novichek ©   (2002-11-04 05:18:00) 

дело такое: создал программно кнопку BitBtn, а как ее теперь програмно уничтожить?

---

Novichek   (2002-11-04 07:50:00) [1]

все разобрался. спасибо

---

Novichek   (2002-11-04 07:34:00) [2]

а как потом обратно создать? у меня ошибка выскакивает при повторном создании

---

PKT   (2002-11-04 07:20:00) [3]


var
Buttons: array[1..5] of TBitBtn;


for q:=1 to 5 do
begin
Buttons[I] := tbitbtn.Create(self);
with Buttons[I] do begin
parent:=panel1;
width:=panel1.Height;
height:=panel1.Height;
left:=panel1.Height*(q+1)-panel1.Height;
top:=0;
end;
end;



Теперь можете уничтожать
Buttons[1].Free;
Buttons[4].Free;
Как Вам захочется

---

Novichek   (2002-11-04 07:16:00) [4]


for q:=1 to 5 do
begin
with tbitbtn.Create(self)do
begin
parent:=panel1;
width:=panel1.Height;
height:=panel1.Height;
left:=panel1.Height*(q+1)-panel1.Height;
top:=0;
end;
end;


panel1 - это такая длинная узкая полоска.

---

MBo   (2002-11-04 07:10:00) [5]

Поподробнее - как создавал.
Есть подозрение, что ссылки утеряны.
Тогда поможет проход по Components[i]

---

Novichek   (2002-11-04 07:01:00) [6]

я ее создал так: tbitbtn.Create(self)
и не ее одну а много, а теперь немогу их все удалить...
помогите плиз.

---

PKT   (2002-11-04 05:27:00) [7]

Если Вы ее создавали как
BitBtn1 := TBitBtn.Create(Form1)
то при уничтожении формы уничтожится и кнопка.

Если нужно уничтожить ри работе формы,
BitBtn1.Free

---

Наверх