InnerGlowEffect и ListBoxItem

[Rusland]

Добавил на ListBoxItem эффект InnerGlowEffect. Trigger=IsPressed=true 

Но когда я нажимаю на этот ListBoxItem, то никакого эффекта не происходит. Почему?

Пробовал все возможные Trigger-ы - никакого толку.

Вообще реально придать какой-нибудь эффект помимо InnerGlowEffect?

 

PS. Пока делаю так: 

procedure TFrmMain.ListBoxItem1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  InnerGlowEffect1.Enabled:=true;
end;

procedure TFrmMain.ListBoxItem1MouseEnter(Sender: TObject);
begin
  InnerGlowEffect1.Enabled:=true;
end;

procedure TFrmMain.ListBoxItem1MouseLeave(Sender: TObject);
begin
  InnerGlowEffect1.Enabled:=false;
end;

 

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