!!! 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;

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

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

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