Mega Code Archive

 

Categories / Delphi / Forms

 

How to know when a form is activated or deactivated

Title: How to 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;