...know when a form is activated or deactivated?

type
   //...
  private
    { Private declarations }
    procedure WMNCACTIVATE(var M: TWMNCACTIVATE); message WM_NCACTIVATE;
  end;


implementation

//...

procedure TForm1.WMNCACTIVATE(var M: TWMNCACTIVATE);
begin
  inherited;
  if M.Active then
    caption:='Form active'
  else caption:='Form not active' ;
end;

printed from
www.swissdelphicenter.ch
developers knowledge base