CODEWITHSUNDEEP
delphiwinapidelphi-xe2
MohsenB
MohsenB

Reputation: 1921

Handle modal form flash


I'm created custom form with : BorderStyle is None and use one shape for tittle background.
i want simulate flash form when this form showing Modal and user click in parent window.
for example change fill color of this shape when flashing form.
useing Activate and DeActivate events of form, works only in my application and when switch betwen forms.

Upvotes: 1

Views: 523

Answers (1)

MohsenB
MohsenB

Reputation: 1921

i'm found my answer :

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;

Upvotes: 3

Related Questions