Поиск компонента по тегу

@artyoms · Регистрация: 28.10.2012

Author24 — интернет-сервис помощи студентам

Знаю про поиск компонента по имени, а есть по тегу?
Я так понял каждому компоненту можно задать индивидуальный тег.

@Puporev · 12.02.2016, 16:56

Pascal

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Tag:=1;
Edit1.Tag:=2;
Memo1.Tag:=3;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,k:byte;
begin
k:=0;
for i:=0 to ComponentCount-1 do
if Components[i].Tag=2 then
 begin
  Showmessage('Tad=2 имеет компонент '+Components[i].Name);
  k:=1;
 end;
if k=0 then Showmessage('Компонента с Tag=2 нет')
end;

@artyoms 1 / 1 / 0 Регистрация: 28.10.2012 Сообщений: 168
		1
	Поиск компонента по тегу 12.02.2016, 16:09. Показов 3694. Ответов 1 Метки нет (Все метки) Знаю про поиск компонента по имени, а есть по тегу? Я так понял каждому компоненту можно задать индивидуальный тег. 0

	12.02.2016, 16:56

Поиск компонента по тегу

Решение