Ручка модальная форма flash

Question

Я создал таможню формы с: BorderStyleNone и использовал одну форму для фона.
Я хочу, чтобы имитировать флэш-форму, когда эта форма показывает Modal и пользователь щелкает в родительском окне.
, например, изменить цвет заливки этой формы при мигающей форме.
использование Activate и DeActivate события формы, работает только в моем приложении и при переключении между формами.

Answer 1

Я нашел мой ответ:

type 
    TForm2 = class(TForm) 
    shp1: TShape; 
    public 
    procedure WMNCActivate(var M: TWMNCActivate); message WM_NCACTIVATE; 
    end; 

procedure TForm2.WMNCActivate(var M: TWMNCActivate); 
begin 
    inherited; 
    if M.Active then 
    shp1.Brush.Color:= clLime 
    else 
    shp1.Brush.Color:= clBlack; 
end;