处理模态闪存

Question

我创建了自定义表单，其中：BorderStyle为None，并使用一种形状作为背景 当此表单显示Modal并且用户在父窗口中单击时，我想要模拟Flash表单 例如，在闪烁时更改此形状的填充颜色 使用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;