处理模态表单flash

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;