Редко удается писать что-то действительно полезное и простое в части решения различных задач. В этот раз мой товарищ спросил вполне резонный вопрос о создании эффекта фоновой подсветки для визуальных компонентов приложений на базе движка FireMonkey. Задачка решается примитивно просто.
Задача
Итак, необходимо непосредственно в коде динамически создать подсветку контрола (TControl) на форме, используя любое событие контакта с ним (например, при двойном клике мышью). Библиотека Firemonkey насчитывает много эффектов, а нужный мен называется TGlowEffect.Решение
Итак, создаем объект класса TGlowEffect, как обычно, и потом присваиваем ему родителя в виде нужного нам объекта.
Листинг
procedure TGridViewForm.Image2DblClick(Sender: TObject);
var ge:TGlowEffect;
begin
ge:=TGlowEffect.Create(self);
ge.Parent:=Image2;
end;
Удачного программирования.