Как для большого количества label сделать общую процедуру?
У меня есть "Таблица Менделеева" на которой огромное количество label представляющих имена химических элементов (lb+имя_элмента), мне нужно для такого большого количества label сделать 2-3 общие процедуры обработки
Ответы (1 шт):
Автор решения: MBo
→ Ссылка
Например, при программном создании вы можете задать обработчики
lbl[i] := TLabel.Create(Self);
lbl[i].Parent...
lbl[i].SetBounds...
lbl[i].OnClick := lblsClick;
Если вы потрудились и всё сделали вручную, то пройдите по компонентам (или контролам) родителя, задавая обработчик нужным компонентам:
for cm in Components do begin
if cm.Name.StartsWith('lbl') then
TLabel(cm).OnClick := lblsClick;
end;