Динамическое создание эффектов для элементов интерфейса (Firemonkey, FMX)

Редко удается писать что-то действительно полезное и простое в части решения различных задач. В этот раз мой товарищ спросил вполне резонный вопрос о создании эффекта фоновой подсветки для визуальных компонентов приложений на базе движка FireMonkey. Задачка решается примитивно просто.

Задача

Итак, необходимо непосредственно в коде динамически создать подсветку контрола (TControl) на форме, используя любое событие контакта с ним (например, при двойном клике мышью). Библиотека Firemonkey насчитывает много эффектов, а нужный мен называется TGlowEffect. 

Решение

Итак, создаем объект класса TGlowEffect, как обычно, и потом присваиваем ему родителя в виде нужного нам объекта. 

Листинг

procedure TGridViewForm.Image2DblClick(Sender: TObject);
var ge:TGlowEffect;
begin
   ge:=TGlowEffect.Create(self);
   ge.Parent:=Image2;
end;

Удачного программирования.