GlowEffect на кнопке

[Rusland]

Как сделать чтобы при нажатии на кнопку GlowEffect активировался, при отпускании кнопки деактивировался? 

PS. Сейчас у меня задан стиль кнопки, в нем прилеплен GlowEffect и он сразу активен.

[Alexander]

не знаю как в мобильной платформе работает, в настольной

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  GlowEffect1.Enabled := True;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  GlowEffect1.Enabled := False;

end;

 

[Rusland]

Действительно, можно же перенести GlowEffect из стиля наружу и там управлять. Интересно, а можно внутри стиля к GlowEffect обращаться?

[dnekrasov]

2 часа назад, Rusland сказал:

Действительно, можно же перенести GlowEffect из стиля наружу и там управлять

Зачем? Ведь стиль для того и создается, чтобы не заморачиваться над UI. 

17 часов назад, Rusland сказал:

Как сделать чтобы при нажатии на кнопку GlowEffect активировался, при отпускании кнопки деактивировался?

В редакторе стилей у GlowEffect поставить Enabled=False и в триггере выбрать IsPressed=True - и наслаждайтесь

[Rusland]

2 минуты назад, dnekrasov сказал:

В редакторе стилей у GlowEffect поставить Enabled=False и в триггере выбрать IsPressed=True - и наслаждайтесь

Спасибо. Как я его сразу не заметил ))

 

PS. У меня страшные глюки IDE когда я пытаюсь добавлять GlowEffect. Сейчас создам отдельную тему 

Изменено 25 мая, 2016 пользователем Rusland

[willi]

учти тот момент, что эффекты и анимация одновременно для одного объекта не работают (в XE8)