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

!!! TLabel стал мешаться.... !!!   Найти похожие ветки 

← →
Maximus ©   (2003-01-06 13:24) [0]

Здравствуйте!
Подскажите мне, пожалуйста, как мне удалить все TLabel на нужной мне форме или панели, если единственное что их отличает от других Label – это Tag. Т.е., например, у всех нужных Label Tag = 0, а у тех, которые надо удалить = 1. Заранее спасибо!!!

---

← →
Mystic ©   (2003-01-06 13:25) [1]

См. массив Components, оператор is

---

← →
Kair   (2003-01-06 15:24) [2]

Могу предложить:

procedure TForm1.Button1Click(Sender: TObject);
var i: byte;
begin
try
for i:=1 to 10 do
if FindComponent("Label"+IntToStr(i)).Tag=1
then FindComponent("Label"+IntToStr(i)).Destroy;
except
end;
end;

---

← →
Maximus ©   (2003-01-06 23:20) [3]

К сожалению не помогло... Без знания имени компонента это можно как-нибудь сделать??? Но все равно спасибо!

---

← →
Song ©   (2003-01-07 09:52) [4]

по классу.

---

← →
Юрий Зотов ©   (2003-01-07 10:30) [5]

for i := ComponentCount - 1 downto 0 do
if (Components[i] is TLabel) and (Components[i].Tag <> 0) then
Components[i].Free;

---

← →
Anatoly Podgoretsky ©   (2003-01-07 10:40) [6]

А ты у того владельца ищешь?

---

← →
Maximus ©   (2003-01-07 11:25) [7]

To: Юрий Зотов
Огромное спасибо, Юрий!.. Очень Вам признателен за помощь!!! Благодаря Вам, школа в которой я учусь не останется без программы-напоминалки расписания!.. :))) Спасибо!
Если смогу быть чем-то полезен - пишите: maximus.b@mtu-net.ru

---

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

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



Память: 0.46 MB
Время: 0.009 c