🚀 go-pugleaf

I am writing a component that needs to respond to the form's
OnActivate event. 

I have created a procedure:

procedure WMActivate(var Message: TWMActivate);
begin
   if not (csDesigning in ComponentState) then
       Case Message.Active of
           WA_Active:      MyProcedure1;  {Form is being activated}
           WA_Inactive:    MyProcedure2;  {Form is deactivating}
       end;          { case }
end;

The interface is defined as:

procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;

I stole this from the Forms.pas file figuring I could use it to grab
the Windows message call (WA_Active) but I don't seem to get any
response at run time.

Any help?




-----
Bill Artemik
Software Engineer
Droste Consultants, Inc.
bill@droste1.com

-------------------------

Attn: Spammers -> don't send to the following addresses:
first.lady@whitehouse.gov consumerline@ftc.gov crc@ftc.gov fraud@uspis.gov uce@ftc.gov rhunt@fcc.gov jquello@fcc.gov sness@fcc.gov rchong@fcc.gov customer@usps.gov 
postmaster@agis.net abuse@agis.net root@agis.net dns-admin@agis.net noc@agis.net 
hostmaster@agis.net phil@agis.net webmaster@agis.net document@agis.net ip-request@agis.net routing@agis.net news@agis.net  accounting@agis.net info@agis.net aapp@agis.net hr@agis.net
emailer@qlink2info.com  simrem@answerme.com hostmaster@inreach.com ap@inreach.com
postmaster@emaildirect.net  abuse@emaildirect.net root@emaildirect.net
postmaster@e-bizness.com abuse@e-bizness.com  root@e-bizness.com comics@iaw.on.ca
maxemail@united-cbe.org domreg@emaildirect.net domreg@hosting.netcom.com
sales@marketingmasters.com  bizpro@softcom.net getpaid4@technosurf.com
domreg@hosting.netcom.com aral@additionalbenefits.com lsims@ne.infi.net
ltclinad@ne.infi.net ltperdir@ne.infi.net abuse@alladvantage.com abuse@hotmail.com