Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

как удалить компонент?   Найти похожие ветки 

← →
Novichek ©   (2002-11-04 05:18) [0]

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

---

← →
PKT   (2002-11-04 05:27) [1]

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

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

---

← →
Novichek ©   (2002-11-04 07:01) [2]

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

---

← →
MBo ©   (2002-11-04 07:10) [3]

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

---

← →
Novichek ©   (2002-11-04 07:16) [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 - это такая длинная узкая полоска.

---

← →
PKT   (2002-11-04 07:20) [5]


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:34) [6]

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

---

← →
Novichek ©   (2002-11-04 07:50) [7]

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

---

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

Текущий архив: 2002.11.14;
Скачать: CL | DM;

Наверх

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