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

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

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

!!! TLabel стал мешаться.... !!!

Maximus © (2003-01-06 13:24:00)
Здравствуйте!
Подскажите мне, пожалуйста, как мне удалить все TLabel на нужной мне форме или панели, если единственное что их отличает от других Label – это Tag. Т.е., например, у всех нужных Label Tag = 0, а у тех, которые надо удалить = 1. Заранее спасибо!!!

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

Anatoly Podgoretsky (2003-01-07 10:40:00) [2]
А ты у того владельца ищешь?

Юрий Зотов (2003-01-07 10:30:00) [3]
for i := ComponentCount - 1 downto 0 do
if (Components[i] is TLabel) and (Components[i].Tag <> 0) then
Components[i].Free;

Song (2003-01-07 09:52:00) [4]
по классу.

Maximus (2003-01-06 23:20:00) [5]
К сожалению не помогло... Без знания имени компонента это можно как-нибудь сделать??? Но все равно спасибо!

Kair (2003-01-06 15:24:00) [6]
Могу предложить:

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;

Mystic (2003-01-06 13:25:00) [7]
См. массив Components, оператор is

Наверх

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